Do Until Loop Hlpe

's Computer Specifications

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

's Computer Specifications

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
>

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Re: Simple window application with a loop and a button to eventuallystop the loop	Joe Cool	Microsoft C# .NET	15	29th Jul 2009 08:40 PM
returning back to loop check condition without completing the loop	ashish128	Microsoft Excel Programming	13	3rd Apr 2008 12:53 PM
Loop to Filter, Name Sheets. If Blank, Exit Loop	ryguy7272	Microsoft Excel Programming	3	5th Feb 2008 03:41 PM
loop through field names, then use to loop through records topopulate grid	pmacdiddie@gmail.com	Microsoft Access Form Coding	1	4th Jan 2008 01:13 PM
Convert loop with Match function to avoid nested loop???	Kobayashi	Microsoft Excel Programming	2	17th Mar 2004 06:36 PM