mrexcelhelp123
New Member
- Joined
- Mar 10, 2010
- Messages
- 38
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.
Code:
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