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