Script for applying a macro for all tabs in a sheet

[marcidee]

Please can someone help me 'tweak' this script that I am using to apply a macro to all tabs within a sheet - I would like the process to exclude 'Sheet1' from the process (so that 'Sheet1' remains as is- thank you for your help.

Marc

Sub Dosomething()
Dim xSh As Worksheet
Application.ScreenUpdating = False
For Each xSh In Worksheets
xSh.Select
Call RunCode
Next
Application.ScreenUpdating = True
End Sub
Sub RunCode()
'your code here
End Sub

 

[MARK858]

Maybe if Sheet1 is the tab name....

Sub Dosomething()
    Dim xSh As Worksheet
    Application.ScreenUpdating = False
    For Each xSh In Worksheets
        [COLOR="#FF0000"]If xSh.Name <> "Sheet1" Then[/COLOR]
            xSh.Select
            Call RunCode
        [COLOR="#FF0000"]End If[/COLOR]
    Next
    Application.ScreenUpdating = True
End Sub

 

[marcidee]

That worked - thank you