Setting zoom for all worksheet pages

[skmr3]

Hi david,

Try putting your code into a For..Each..Next statament.

Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> mSheet Then
ws.Activate
....<Your code here>
End If
Next ws

HTH's
Russell.(Skmr3)