Excelの全シートを左寄せ

Excelブック内にある全シートを一度に左上揃い（A1セル選択状態）にさせます。

大量にシートが分かれているブックの体裁を整える際に便利です。

Sub 全シートを左寄せ()
'
    Application.ScreenUpdating = False  '画面の更新を停止させる

    '

    Dim i As Long

    For i = 1 To Worksheets.Count

        Sheets(i).Activate

        ActiveWindow.ScrollColumn = 1  'スクロール列の設定

        ActiveWindow.ScrollRow = 1  'スクロール行の設定

        Range("A1").Select

    Next i

    '

    Sheets(1).Activate

'

Application.ScreenUpdating = True  '画面の更新を戻す

'

End Sub

以上です。