Do Until Loop Hlpe

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Do Until Loop Help 3
Loop Repeats - PLS HELP 2
Do Until Loop Not Working 3
Do Until Loop Not Working 1
How to hide password? 1
Nested Do Until Loop 4
Copy filtered data to sheet 2 1
Do Until or For Loop 3

Top