Loop Until Last Worksheet in Workbook

[derrick.perkins]

Hi,

As part of a more complex script, I want this loop to do a set of
actions and then move to the next sheet and preform the same set of
actions and then stop on the last sheet.

Here is what I have so far:

Sub Test
ActiveSheet.Next.Select
Do
<my series of code is here>
ActiveSheet.Next.Select
Loop
End Sub

It is working so far, but when I get to the end an error pops up. Not
a big deal, just don't want to have it.

Thanks in advance for your help,
Derrick

 

[Guest]

Sub Test
ActiveSheet.Next.Select
Do
<my series of code is here>
if ActiveSheet.Index <> Sheets.count then
ActiveSheet.Next.Select
else
exit do
End if
Loop
End Sub

 

[derrick.perkins]

Thanks so much.