VBAマクロで体裁を整える

#はじめに
システム開発時にExcelで何かしらのドキュメントを残すケースが多々あると思う。
その際、保存時は以下とすることが基本だと思っている。
（個人の主観と経験則による）

• 倍率は100%
• アクティブセルはA1
• アクティブシートは左端
• スクロール位置は左上部

エビデンスのレビューで、体裁についての指摘が頻発することがある。
人間が作業をするので修正漏れも発生する。
開発規模が大きくなるほどレビュー工数がだるま式に増加するため、
保存する際にマクロで整えることも検討したい。

#コード（VBA）

Sub manHourReduction()

    For Each Sheet In Worksheets
    
        '表示しているシートのみを対象とする
        If Sheet.Visible = True Then
            'シートを選択
            Sheet.Select
            'アクティブセルをA1へ
            Range("A1").Activate
            '倍率を100%
            ActiveWindow.Zoom = 100
            'スクロールを最左へ
            ActiveWindow.ScrollColumn = 1
            'スクロールを最上へ
            ActiveWindow.ScrollRow = 1
        End If
    Next
    '左端のシートをアクティブにする
    Worksheets(1).Activate

End Sub

#おわりに
ドキュメント全ブックに対してこの手のマクロを一括適応することで、
かなりの工数を削減出来るはず。