macro to open files at 100% zoom

[skf786]

hi,

im looking for a macro to make an excel file (all visible sheets) open at a zoom of 100%.

thank you

khalid

 

[Dossfm0q]

Sub visible_sheets_open_zoom()

Dim Sht As Worksheet

    For Each Sht In ThisWorkbook.Worksheets
        If Sht.Visible = True Then
            Sht.Activate
            ActiveWindow.Zoom = 100
        End If
    Next
    
  
End Sub