Excel全シートのA1セルにカーソルを移動するマクロ

ファイル提出などに。

'A1選択マクロ
Dim myBook As Workbook, mySheet As Worksheet

Set myBook = ActiveWorkbook

'各シートそれぞれでA1にカーソルを移動する
For Each mySheet In myBook.Worksheets
    
    mySheet.Select
    mySheet.Range("A1").Select
    ActiveWindow.ScrollColumn = 1 'シート左端までスクロール
    ActiveWindow.ScrollRow = 1 'シート右端までスクロール

Next mySheet

myBook.Sheets(1).Select '最後に1枚目のシートに移動して終了