Do Until Loop Hlpe

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Sub FindLine()

Range("I11").Select

Do Until ActiveCell = "Grand Total"
MsgBox "Please delete extra rows", vbOKOnly, "Extra Rows Found"
Exit Do
ActiveCell.Offset(1, 0).Select
MsgBox "Please Extend Range"
Loop

End Sub
 
Back
Top