VBA Zoom in

[nave88]

Hi everybody,

I am using this code for zooming in, is there a way if I use this that it will do it for all my sheets?

Sub FIT()




Range("A1:R1").Select
ActiveWindow.Zoom = True
Range("A1").Select


End Sub

Thanks for the help
Best regards

 

[Fluff]

How about

Sub Fit()
   Dim Ws As Worksheet
   
   For Each Ws In Worksheets
      Ws.Activate
      Range("A1:R1").Select
      ActiveWindow.Zoom = True
   Next Ws
End Sub

 

[nave88]

Hi Fluff,

that helped a lot Is there a way to specify which sheets to apply it on?

Thx a lot

 

[Fluff]

Try

Sub Fit()
   Dim Ws As Variant
   Dim Ary As Variant
   
   Ary = Array("[COLOR=#ff0000]Sheet1[/COLOR]", "[COLOR=#ff0000]Sheet2[/COLOR]", "[COLOR=#ff0000]Sheet3[/COLOR]")
   For Each Ws In Ary
      Sheets(Ws).Activate
      Range("A1:R1").Select
      ActiveWindow.Zoom = True
   Next Ws
End Sub

Changing sheet names in red to suit