全てのシートのカーソル位置をA1に移動し、拡大率100％にするVBAサンプルコード

Sub ボタン1_Click()

    'このブックを取得
    Set myWorkBook = ThisWorkbook
    
    'A1に固定するExcelのパスを取得
    Dim filePath As String
    filePath = myWorkBook.Worksheets("Sheet1").Cells(2, 2).Value
    
    'ターゲットのブックを開く
    Workbooks.Open Filename:=filePath
    Set targetWorkBook = Workbooks(Dir(filePath))
    
    '全シートループ
    For Each targetSheet In targetWorkBook.Worksheets
        
        targetSheet.Activate
        'A1セルを選択
        Application.Goto Reference:=targetSheet.Range("A1"), Scroll:=True
        
        '拡大率100%
        ActiveWindow.Zoom = 100
        
    Next
    
    '一番左のシートに選択を戻す
    targetWorkBook.Sheets(1).Activate
    
    '保存する
    targetWorkBook.Save
    
    '別ブックを閉じる
    targetWorkBook.Close savechanges:=True
    
End Sub