VBAで報告用にレイアウト調整

VBA報告用整理

Sub 全シート_報告用()
    Dim firstSheet As Worksheet
    Set firstSheet = ActiveSheet
    
    Dim s As Object
    For Each s In ActiveWorkbook.Sheets
        s.Activate
        
        'カーソルをA1セルへ
        ActiveSheet.Range("A1").Select

        'アクティブセルを画面の最上部に表示する
        With ActiveWindow
            .ScrollRow = ActiveCell.Row
            .ScrollColumn = ActiveCell.Column
        End With
        
        '倍率100%
        ActiveWindow.Zoom = 100
        
        '枠線なし
        ActiveWindow.DisplayGridlines = False
        
        'ページレイアウト標準
        ActiveWindow.View = xlNormalView
    Next s
    firstSheet.Activate
End Sub