Sub m() Dim I As Integer I = 1 Do If (Cells(I, "A").Value = "A") Then MsgBox ("I found a A in row " & Str(I)) End If I = I + 1 Loop Until (Cells(I, "A").Value = "") End Sub