unfortunately, i couldn't get those to work on more than the first
sheet after the index.

did you use my code as posted, what went wrong?

I've modified your code to work but doing it the way your trying you'll have
problems identifying in code what sheet your up to unless you pass a
parameter to the sub AAA

Sub do_things()
'
Dim sh As Worksheet
'for each sheet in workbook after "ind templates"
x = Sheets("IND_BRKDWN").Index
Stop
For Each sh In ThisWorkbook.Sheets
If sh.Index x Then
Call AAA
End If
Next

End Sub

--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"J.W. Aldridge" wrote:

unfortunately, i couldn't get those to work on more than the first
sheet after the index.
even tried to work it out myself.


Sub do_things()
'
Dim sh As Worksheet

'for each sheet in workbook after "ind templates"
x = Sheets("IND_BRKDWN").Index
For Each sh In ThisWorkbook.Sheets
If sh.Index x Then
Application.Run "AAA"
End If

Next

End Sub

.