Give this code a try.

Sub do_things()

Dim sh As Long

For sh = Sheets("IND_BRKDWN").Index + 1 To Sheets.Count
Call AAA
Next sh

End Sub

If this code doesn't work then post the code that is in procedure "AAA". It
may be more efficient to integrate the loop into procedure. Hope this helps!
If so, let me know, click "YES" below.

--
Cheers,
Ryan


"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

.