Thanks guys, they both worked as equally as well
Regards
John


"Gary Keramidas" wrote:

you can see if this works for you:

Sub test()
Dim i As Long
For i = ActiveSheet.Index + 1 To Worksheets.Count
Worksheets(i).Select False
Next
End Sub

--


Gary

"JohnUK" wrote in message
...
Hi, I am looking for a piece of code that can pick up all tabs/sheets
after
the tab where the button is located to run the code, regardless of name
and
number of tabs/sheets. is this possible?
Reason being: The first 2 tabs will be unchanged, but the workbook can
have
different amounts of tabs with different names, and I want to select all
the
tabs so that I can format all at the same time (using code)
Many thanks
John