【ExcelVBA】表示倍率一括設定

Option Explicit
'/////////////////////////////////////////////////
Sub 表示倍率一括設定()
'/////////////////////////////////////////////////
    '<変数設定>
    Dim フォルダパス As String
    Dim ファイルパス As String
    Dim 表示倍率 As Integer
    Dim Ws As Worksheet
    
    '<変数設定>
    フォルダパス = Range("A3")
    ファイルパス = Dir(フォルダパス & "\" & "*.xls*")               'フォルダ内全てのxlsx,xls,xlsm等を読込
    表示倍率 = Range("A8")
    '<ファイルがなくなるまで>
    Do Until ファイルパス = ""
        Workbooks.Open フォルダパス & "\" & ファイルパス            'ワークブック開く
        
        '<全シート処理>
        For Each Ws In Worksheets
            Ws.Activate
            ActiveSheet.Range("A1").Select                          'A1選択
            Application.GoTo Reference:=Range("A1"), Scroll:=True   'A1移動
            ActiveWindow.zoom = 表示倍率                            '表示倍率設定
        Next
        
        Worksheets(1).Activate                                      'シート１選択
        With ActiveWorkbook                                         '新規ブックを上書き保存後、閉じる
            .Save
            .Close
        End With
        ファイルパス = Dir()                                        '次のファイルを取得
    Loop
        
    '<終了処理>
    MsgBox "完了しました。"
End Sub