マクロ【全体指定】

質問

御世話になります。

下記のマクロコードをあるエクセルファイルの全シート指定で一括処理したいのですが、可能でしょうか？

Sub test()
行番号 = 1
ActiveWindow.ScrollRow = 行番号
列番号 = 1
ActiveWindow.ScrollColumn = 列番号
End Sub

かなり初歩的な質問で申し訳ありませんが、宜しくお願い致します。

回答No.1

okormazd · ベストアンサー

ただ単にA1セル(cells(1,1))を選択しているだけに見えるが、
それだったら、
Sub test()
sn = ActiveWorkbook.Sheets.Count
For i = 1 To sn
ActiveWorkbook.Sheets(i).Activate
Cells(1, 1).Select
Next
End Sub
ではだめなのか。

お礼

ありがとうございます！最高なコードでした！
素晴らしいです！！！

回答No.2

okormazd

こっちの方がいいか。

Sub test()
For Each sh In ActiveWorkbook.Sheets
sh.Activate
Range("A1").Select
Next
End Sub