Simple macro ends after loop?

[patriot333]

The following are two examples of a macro that simply end after the loop. They seem to complete the loop properly, but instead of continuing on with the rest of the code it ERRORs out?
I just need it to then go to the "RegCard" sheet then and stop.
Any help would be greatly appreciated. Thank you in advance.

Sub WaterCouponLoop1()
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>Application.ScreenUpdating = False
Sheets("WaterCoupons").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Do Until (Data!E2 + 10 > WaterList03!G3)
<o></o>Sheets("Data").Select
Range("E2").Select
ActiveCell.Value = 10 + ActiveCell.Value
Sheets("WaterCoupons").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Loop
Sheets("RegCard").Select
Application.ScreenUpdating = True
<o></o>
End Sub
<o></o>
<o></o>
Sub WaterCouponLoop1()
<o></o>Application.ScreenUpdating = False
Sheets("WaterCoupons").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Do
<o></o>Sheets("Data").Select
Range("E2").Select
ActiveCell.Value = 10 + ActiveCell.Value
Sheets("WaterCoupons").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Loop Until (Data!E2 > WaterList03!G3)
Sheets("RegCard").Select
Application.ScreenUpdating = True
<o></o>
End Sub

 

[crimson_b1ade]

It would be better if you described in words what you are trying to do rather than posting vba code which may (or may not) convey that message.

As a side note, you do not need to .Select Excel objects in vba to work with them.

 

[patriot333]

I posted the code so the code itself could be checked for errors.

Thanks for the review, I went with another loop variant. I'll post it here for posterity:

Sub WaterCouponLoop1()
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
Application.ScreenUpdating = False
Sheets("WaterCoupons").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Dim i As Integer
Dim intValue As Integer
intValue = Range("WaterList03!G6")
For i = 1 To intValue
Sheets("Data").Select
Range("E2").Select
ActiveCell.Value = 10 + ActiveCell.Value
Sheets("WaterCoupons").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next i
<o> </o>
Sheets("Data").Select
Range("E2").Select
ActiveCell.Value = 1
Sheets("RegCard").Select
Application.ScreenUpdating = True
<o> </o>
End Sub

 

[Jonmo1]

What error does it give?

Is it "Subscript Out Of Range" ?

If so, that means either...
The sheet "RegCard" does not exist (check exact spelling, and look for extra spaces).
Or
The sheet "RegCard" is Hidden. (A sheet must be visible in order to be selected).

To solve that, unhide the sheet first, then select it

Sheets("RegCard").Visible = True
Sheets("RegCard").Select

 

[patriot333]

Thank you very much for the time you took to respond to my question. I did get it to work by using the code in my last post.

Thanks again,

-Tom