Reply to thread

Message: [QUOTE="Rick Rothstein, post: 13519699"] I would probably simplify your code like (this in order to remove all the repeated code lines)... Public Sub Username2Line() Dim rng As Range Dim IsCorrect As Boolean For Each rng In Range(Range("H2"), Cells(Rows.Count, "A"). _ End(xlUp).Offset(0, 7)) Select Case rng.Value Case "MFG1" IsCorrect = rng.Offset(0, 1).Value = "10FS" Case "MFG11" IsCorrect = rng.Offset(0, 1).Value = "80FS" Case "MFG15" IsCorrect = rng.Offset(0, 1).Value = "VTFS" Or _ rng.Offset(0, 1).Value = "TSFS" Or _ rng.Offset(0, 1).Value = "LUMFS" Case "MFG16" IsCorrect = rng.Offset(0, 1).Value = "STGFS" Case "MFG17" IsCorrect = rng.Offset(0, 1).Value = "35FS" Case "MFG18" IsCorrect = rng.Offset(0, 1).Value = "DPFS" Case "MFG4" IsCorrect = rng.Offset(0, 1).Value = "70FS" Case "MFG5" IsCorrect = rng.Offset(0, 1).Value = "VTFS" Case "MFG7" IsCorrect = rng.Offset(0, 1).Value = "70FS" End Select Next If IsCorrect Then rng.Offset(0, 2).Value = "Correct" Else rng.Offset(0, 2).Value = "Incorrect Location" End If End Sub [/QUOTE]