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