VBA Code ignores some sheets

[ORoxo]

Hey, guys,
I'm using a macro do to some basic tasks. However, it keeps ignoring some of the worksheets.
Any idea why?

Sub Macro1()
Dim w as worksheet
Application.ScreenUpdating = False


For Each w In Worksheets


    ActiveWindow.DisplayGridlines = False
    ActiveWindow.Zoom = 85
    Range("A1").Select


Next


Application.ScreenUpdating = True


End Sub

Thanks

 

[RoryA]

You need to select each sheet for that to work:

Sub Macro1()

Application.ScreenUpdating = False


For Each Sheet In Worksheets

Sheet.Select
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.Zoom = 85
    Range("A1").Select


Next


Application.ScreenUpdating = True


End Sub

 

[ORoxo]

You need to select each sheet for that to work:

Sub Macro1()

Application.ScreenUpdating = False


For Each Sheet In Worksheets

Sheet.Select
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.Zoom = 85
    Range("A1").Select


Next


Application.ScreenUpdating = True


End Sub

Thanks, Rory. It worked perfectly!

Would it be possible to do it without using Sheet.Select? I figured "ActiveWindow" was the problem and was trying to replace it with "ActiveSheet" but it didn't work

 

[RoryA]

No, you can't set the Zoom or select a cell on a sheet without it being active.