[Excel] 提出前に全シートを整えるVBAマクロ

'
' ブック内の全シートを100%表示にして、A1セルを選択する
'
Sub 表示初期化()
    
    Dim ws          As Worksheet
    Dim firstVis    As Worksheet   ' 1 枚目の可視シートを記憶する用
    
    On Error GoTo CleanExit
    
    ' 画面更新を止めてチラつき防止
    Application.ScreenUpdating = False
    
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Visible = xlSheetVisible Then
            If firstVis Is Nothing Then Set firstVis = ws   ' 1 枚目の可視シートを記憶
            ws.Activate                                     ' 一時的にアクティブ化
            ws.Range("A1").Select                           ' A1セルを選択
            ActiveWindow.ScrollRow = 1                      ' 上にスクロール
            ActiveWindow.ScrollColumn = 1                   ' 左にスクロール
            ActiveWindow.Zoom = 100                         ' 表示拡大率を100%に設定
        End If
        ' 非表示シートはスキップ
    Next ws
    
    ' 先頭可視シートを選択
    If Not firstVis Is Nothing Then firstVis.Activate
    
CleanExit:

    ' 画面更新を再開
    Application.ScreenUpdating = True
    
End Sub