Loop through all worksheets with 2 exceptions

[jaffacake]

Hi all,

I have the following sub which i'm using to loop through my workbooks' worksheets;

Sub UpdateAllSheets()
Dim ws As Worksheet
Application.ScreenUpdating = False
DeleteCharts
For Each ws In Worksheets
If Not ws.Name = "Summary" Or Not ws.Name = "Raw Data" Then ws.Select
With ActiveSheet
ActiveWindow.Zoom = 75
Update
End With
Next ws
Application.ScreenUpdating = True
End Sub

However, the 'Update' is still being applied to both the Summary and Raw Data worksheets. Why is it not working?

Any help woukld be greatly appreciated.

 

[VoG]

You need And instead of Or

If ws.Name <> "Summary" And ws.Name <> "Raw Data" Then ws.Select

 

[jaffacake]

Thanks Peter