【Excelアドイン】全シートA1セルに合わせて倍率100%

Excelの全シートをA1セルに合わせて倍率を100%で統一するアドインになります。
Excelファイルを提出する前に実行することをオススメします。

'すべてのシートをA1に合わせる
Sub scrollToA1()
 Dim i As Worksheet
 Dim sHiddenSheet
  Dim index As Integer: index = 0

  For Each i In Worksheets
    'シートが表示されている場合
    If i.Visible = xlSheetVisible Then
        i.Select
        Application.GoTo Reference:=ActiveWindow.ActiveSheet.Range("A1"), Scroll:=True
        ActiveWindow.Zoom = 100
       
        ' 表示されている先頭のインデックスを保持
        If index = 0 Then
            index = i.index
        End If
    ' シートが非表示の場合
    Else
        sHiddenSheet = sHiddenSheet & "、 " & i.Name
        i.Visible = xlSheetVisible
        i.Select
        Application.GoTo Reference:=ActiveWindow.ActiveSheet.Range("A1"), Scroll:=True
        ActiveWindow.Zoom = 100
        i.Visible = xlSheetHidden
    End If

  Next
Sheets(index).Select
End Sub

※ショートカット設定
「ThisWorkbook」シートに以下設定をしておくことでキーボードショートカットで実行することができます。
設定後はアプリの再起動が必要です。
以下は「alt」+「Enter」キーで上記のマクロを実行する例です。
キー一覧はこちら

'ブックを開いたときにショートカットキーを設定する。
Sub Workbook_Open()
    'すべてのシートをA1に合わせる。ショートカットキー：「alt + Enter」
    Application.OnKey "%~", "scrollToA1"
End Sub

'ブックを閉じたときにショートカットキー設定を解除する。
Sub Workbook_Close()
    Application.OnKey "%~"
End Sub