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枚目のシートに移動して終了