Reply to thread

Message: [QUOTE="Rick Rothstein, post: 13521554"] Your points are well taken. Thanks. Here is the amended code incorporating your suggestions... 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)) If Len(rng.Value) Then 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", "MFG7" IsCorrect = rng.Offset(0, 1).Value = "70FS" Case "MFG5" IsCorrect = rng.Offset(0, 1).Value = "VTFS" Case Else IsCorrect = False End Select If IsCorrect Then rng.Offset(0, 2).Value = "Correct" Else rng.Offset(0, 2).Value = "Incorrect Location" IsCorrect = False End If End If Next End Sub [/QUOTE]