成果物はA1セルをアクティブにするご作法。
作業中ではないですよ。の無言の表現。
forループを使ったシンプルな対処法です。
シート数 to 1(-1ずつ)で1シートずつA1セルをアクティブにしましょう。
ここで注意なのがwindowの固定。
A1セルをselectしただけではだめです。Scrollの設定もしましょう。
Sub A1セルに配置()
Dim wb1 As Workbook, i As Long
Set wb1 = ThisWorkbook
For i = Sheets.Count To 1 Step by - 1
Sheets(i).Select
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Cells(1, 1).Select
Next i
Set wb1 = Nothing
End Sub
(こんなお作法、Excelの標準機能にしたほうが良くないか)