codified knowledge

Option Explicit

Public Sub Whatever()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

ws.Activate

ws.Visible = xlSheetVisible

ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
ActiveWindow.Zoom = 100

Next ws

End Sub