【エクセルVBAレシピ】全てのシートの拡大率を100にして、最初のシートを選択する。

Sub setZoomOfAllSheets(Optional wb As Workbook, Optional zoomMagnification As Variant = 100)
    If wb Is Nothing Then Set wb = ActiveWorkbook
    For Each ws In wb.Sheets
        ws.Activate
        ActiveWindow.Zoom = zoomMagnification
    Next
    wb.Sheets(1).Activate
End Sub

wb 編集するワークブックのオブジェクト(省略したらアクティブなウィンドウのブック)
zoomMagnification 拡大率(10~400、Trueなら選択されたセルが収まる用に拡大縮小、Falseなら100)


関連:
【エクセルVBAレシピ】全てのシートでA1セルを選択状態にして、最小ノートを選択する。 - ひとふたブログ


参照:
名前付き引数と省略可能な引数について (VBA) | Microsoft Docs
Application.ActiveWorkbook プロパティ (Excel) | Microsoft Docs
Worksheet.Activate メソッド (Excel) | Microsoft Docs
Window.Zoom プロパティ (Excel) | Microsoft Docs