すべてのシートを「倍率100%」「アクティブセルA1」「標準ビュー」にする

Zoom100CursorA1NormalView.vb

Sub Zoom100CursorA1NormalView()
    ' ScreenUpdatingを切るとA1セルがアクティブにはなるが、表示範囲が変わらない
    Dim sheet As Object
    For Each sheet In ActiveWorkbook.Sheets
        sheet.Activate
        ActiveSheet.Range("A1").Select
        ActiveWindow.Zoom = 100
        ActiveWindow.View = xlNormalView
    Next sheet
    Sheets(1).Select
End Sub

ref: https://note.com/sheep_0411/n/n4b0732163b01 https://tripbowl.com/excel-vba/pagebreakpreview/