VBA code to exclude macro performing on specified worksheet

[mrexcelhelp123]

Can someone help me find out what is wrong with this code? I need some changes made on all worksheets (except the ones listed) for all open workbooks.

Sub Step2_Modify_Summary_Tabs()
Dim wb As Workbook
Dim ws As Worksheet
 
For Each wb In Workbooks
 
    For Each ws In Worksheets
    
    If ws <> "Sheet1" _
    Or ws <> "Sheet2" _
    Or ws <> "Sheet3" _

    Then
 
    .Range("A1:A2").ClearContents
 
    End If
    Next ws
    
Next wb
    
End Sub

 

[Domenic]

Try...

Sub Step2_Modify_Summary_Tabs()

    Dim wb As Workbook
    Dim ws As Worksheet
     
    For Each wb In Workbooks
        For Each ws In wb.Worksheets
           If ws.Name <> "Sheet1" And ws.Name <> "Sheet2" And ws.Name <> "Sheet3" Then
               ws.Range("A1:A2").ClearContents
           End If
        Next ws
    Next wb
    
End Sub

 

[Tazguy37]

You might want to think about using the worksheets' code names, so if the sheets are ever renamed, your code will still work -- if the sheet(s) are ever deleted and recreated, this won't work, however.

 

[mrexcelhelp123]

Thanks Domenic! This works!

 

[mrexcelhelp123]

Hi Tazguy37, Domenic is offline but thought you might be able to help. If I take the his code one step further by specifying workbooks I don't want the macro to work on would I do it this way:

Sub Step2_Modify_Summary_Tabs()
 
    Dim wb As Workbook
    Dim ws As Worksheet
 
    For Each wb In Workbooks
 If wb.Name <> "Workbook1" Then
 
        For Each ws In wb.Worksheets
           If ws.Name <> "Sheet1" And ws.Name <> "Sheet2" And ws.Name <> "Sheet3" Then
               ws.Range("A1:A2").ClearContents
           End If
        Next ws
End If
    Next wb
 
End Sub

 

[Domenic]

Looks fine...

 

[mrexcelhelp123]

Domenic, it doesn't seem to be working. Here's my code:
I feel like there should be something in front of Workbooks similar to Worksheet (i.e. wb.Worksheets)

Sub Step2_Modify_Summary_Tabs()
 
    Dim wb As Workbook
    Dim ws As Worksheet
 
    For Each wb In Workbooks
 If wb.Name <> "Workbook1" Then
 
        For Each ws In wb.Worksheets
           If ws.Name <> "Sheet1" And ws.Name <> "Sheet2" And ws.Name <> "Sheet3" Then
               ws.Range("A1:A2").ClearContents
               ws.Range("A5").Formula = "=A3+A4"
           End If
 
        Next ws
End If
    Next wb
 
End Sub

 

[Domenic]

If "Workbook1" is saved, you'll need to include its file extension. For example...

"Workbook1.xlsx"

 

[mrexcelhelp123]

Works like a charm, thanks!

 

[temakhafola]

The below is the code I used to perform macros on all sheets in my workbook, now in this code how do I exclude one sheet that I want to use as my content page?

Sub Fixed_Assets_Recons()
Dim xsheet As Worksheet
For Each xsheet In ThisWorkbook.Worksheets
xsheet.Select