Run Macro on all worksheets except 2

[brianfosterblack]

I presently have a workbook with a number of sheets (The number will vary from 1 to over 50). At the end of the year I save the workbook for the current year and then save it again for the new year. At that time I run a macro (named "ClearForNewYear") on each sheet in the the new workbook to clear some data, making it ready for the new year. I need to run this for every sheet in the workbook except sheet1 (Named "1Master") and sheet4 (Named "ZZSummary"). The macro I am using works fine but I have to currently open each worksheet and then run the macro. Can anyone help me with the code to just run the macro once and it clears the necessary data from all the worksheets in the workbook except the 2 I have mentioned?

 

[Joe4]

You can create a macro to loop through all worksheets except for those two and run your macro.
The structure would look something like this:

Sub RunMacro()

    Dim ws As Worksheet
   
    For Each ws In Worksheets
        If ws.Name <> "1Master" And ws.Name <> "ZZSummary" Then
            ws.Activate
            'Call your macro to run here
        End If
    Next ws
   
End Sub

Simply replace the

'Call your macro to run here

line with the name of your macro.

If it was named "Macro1", that line would look like:

Call Macro1

 

[brianfosterblack]

You can create a macro to loop through all worksheets except for those two and run your macro.
The structure would look something like this:

Sub RunMacro()

    Dim ws As Worksheet
  
    For Each ws In Worksheets
        If ws.Name <> "1Master" And ws.Name <> "ZZSummary" Then
            ws.Activate
            'Call your macro to run here
        End If
    Next ws
  
End Sub

Simply replace the

'Call your macro to run here

line with the name of your macro.

If it was named "Macro1", that line would look like:

Call Macro1

Hi Joe4. This works perfectly. Thank you so much for this quick reply and assistance - Much appreciated.

 

[Joe4]

You are welcome.
Glad I was able to help!