ExcelBanter - Do Until Loop Hlpe

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Do Until Loop Hlpe (https://www.excelbanter.com/excel-programming/396417-do-until-loop-hlpe.html)

PJFry

Do Until Loop Hlpe

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

PJFry

Do Until Loop Hlpe

Stupid Enter key....

The real post is next.

"PJFry" wrote:

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

All times are GMT +1. The time now is 07:31 PM.