[VBA]全てのシートをA1に揃える

全てのシートをA1に揃える

Sub 全てのシートをA1に揃える()
    Dim s As Object
    Dim defaultSheet As Object
    Set defaultSheet = ActiveSheet
    For Each s In ActiveWorkbook.Sheets
        s.Activate
        ActiveSheet.Range("A1").Select 'A1を選択
        ActiveWindow.Zoom = 100 '倍率を100%に
    Next s
    Worksheets(1).Activate '最後に選択しておきたいシート
End Sub