個人用マクロかアドインに追加することで利用可能。
追加方法は別途投稿したい。

'全シートをA1セル、表示倍率100%、スクロール位置を左上に変更する
Private Sub subSetA1()
    Dim ws As Worksheet
  
    '各シート、A1セル、表示倍率100%、スクロール位置を左上に変更
    For Each ws In ActiveWorkbook.Worksheets
        ws.Activate
        ws.Cells(1, 1).Select
        ActiveWindow.Zoom = 100
        ActiveWindow.ScrollColumn = 1
        ActiveWindow.ScrollRow = 1
    Next
    
    '先頭シートを選択
    ActiveWorkbook.Worksheets(1).Activate
    
End Sub