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
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