Public Sub OttoMan()
Dim strA, strM, strCell As String
Dim i As Integer
strA = UCase("1-1")
strM = UCase("1-1m")

Range("A1").Select
For i = 0 To 100
strCell = UCase(ActiveCell.Offset(i, 0).Text)
If strA = strCell Then
ActiveCell.Offset(i, 1).Value = "strA"
End If

If strCell = strM Then
ActiveCell.Offset(i, 1).Value = "strM"
End If
strCell = ""
Next
End Sub

"Otto Moehrbach" wrote:

Excel XP & Win XP

This one has me stumped. I have a column consisting of various number
combinations including:

1-1

1-1M

My code is in a For loop running down the column:

If i = "1-1" Or i = "1-1M" Then

The 1-1 has an apostrophe in front of it to preclude Excel seeing it as a
date. I checked the length of each with LEN and they are 3 and 4.

The above code cannot find/see the 1-1 or the 1-1M.

I even wrote the code as CStr(i)= and had no luck.

I am open to any suggestions. Thanks for your time. Otto