Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Nest If statement in Do Loop Until for cells
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