Vba Zoom out

[Alisya]

Hi i am after a vba code that will zoom out to 80% for all worksheets after the 6th worksheet from the left, so the seventh wks will be the first to zoom out

 

[wigi]

Use...

Sub Macro2()
    Application.ScreenUpdating = False
    actSheet = ActiveSheet.Name
    For Each ws In ThisWorkbook.Worksheets
        If ws.Index > 6 Then
            ws.Activate
            ActiveWindow.Zoom = 80
        End If
    Next
    ThisWorkbook.Worksheets(actSheet).Select
End Sub

Wigi

 

[Alisya]

Use...

Sub Macro2()
    Application.ScreenUpdating = False
    actSheet = ActiveSheet.Name
    For Each ws In ThisWorkbook.Worksheets
        If ws.Index > 6 Then
            ws.Activate
            ActiveWindow.Zoom = 80
        End If
    Next
    ThisWorkbook.Worksheets(actSheet).Select
End Sub

Wigi

Thanks wigi