VBAで全シートのアクティブセルをA1、表示倍率を100%にする

Option Explicit

Sub ImportButton_Click()

Dim FilePath As String
Dim i As Long

'ApplicationオブジェクトのGetOpenFilenameメソッドを使って、[ファイルを開く]ダイアログボックスを表示する
'[ファイルを開く]ダイアログボックスに、どの拡張子のファイルを表示するかを引数FileFilterで設定する
'選択されたファイルのフルパスをFilePathに格納する
FilePath = Application.GetOpenFilename("Excel ファイル (*.xls; *.xlsx; *.xlsm),*.xls; *.xlsx; *.xlsm")

'選択したブック（ファイル）を開く
Workbooks.Open FilePath

'全シートのアクティブセルをA1にする
'全シートの表示倍率を100%にする
For i = Sheets.Count To 1 Step -1 '最後のシートから逆順で処理。1番目のシートになるまで処理を実行する
    If Sheets(i).Visible = True Then '非表示セルは処理対象外とする
        Application.Goto Sheets(i).Cells(1, 1)
    End If
    ActiveWindow.Zoom = 100
Next i

'一番左のシートのA1セルに移動する
Application.Goto Sheets(1).Cells(1, 1)

End Sub