If Not Cells(1, 1) Like "*ANNL*" Then ListBox1.AddItem
For i = 2 To .Range("a65536").End(xlUp).Row
If .Cells(i, 4) Like "*ANNL*" Then
ComboBox1.AddItem
ComboBox1.List(ComboBox1.ListCount - 1, 0) = .Cells(i, 4)
ComboBox1.List(ComboBox1.ListCount - 1, 1) = i
End If
Next i
If Not .Cells(i, 4) Like "*ANNL*" Then