I have part numbers that are in the form of 12345678-001. I am trying to write a macro that will search through the 13000 lines of part numbers and enter a revision level next to it. I want it to only look at the first 8 numbers (before the "-"). This is what I currently have: Dim Timer As Integer Timer = 1 While (Timer < 12755) If (ActiveCell = "12414308-017") Then ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell = "B" ActiveCell.Offset(1, -1).Range("A1").Select Timer = Timer + 1 Else ActiveCell.Offset(1, 0).Range("A1").Select End If Timer = Timer + 1 Wend End Sub

Software/Hardware used: