Changing the Zoom Property of a WorkBook without using an Array
Hi,
I am trying to write a bit of code that changes the zoom property of a
whole work book. Rather than use an array [as there are 40+ worksheets]
I want to use 'For Each' statement like
Sub ChangeZoom55()
Application.ScreenUpdating = False
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Zoom = 55
Next
Application.ScreenUpdating = True
Sub Function
There is the added frustration of hidden worksheets, so I am not sure
if I have to run a separate bit of code to un hide the hidden sheets,
if I do have to do this is there a way in which I can hide all the
sheets which were originally hidden but not the sheets that were
visible to start with.
Any help much appreciated. Scott
= )
|