VBAで全てのシートを選択しA1セルに移動する方法について

質問

• VBAを使用して、Excelの全てのシートを選択し、A1セルに移動する方法について教えてください。現在作成しているコードでは、非アクティブシートが移動されず、移動後の表示位置がばらばらになってしまいます。
• 「Worksheets.Select」コードを使用して全てのシートを選択し、A1セルに移動しようとしていますが、アクティブシート以外は移動されず、移動後の表示位置も正しくありません。全てのシートをA1に移動し、ウィンドウもA1に移動する方法があれば教えてください。
• Excel VBAを使用して、全てのシートをA1セルに移動する方法についてお伺いしたいです。現在のコードでは、アクティブシート以外は移動されず、表示位置もばらばらになってしまいます。全てのシートをA1に移動し、ウィンドウもA1に移動する方法があればご教示ください。

回答No.2

tom04

こんにちは！
ごく単純に・・・

Sub test()
Dim i As Long
For i = 1 To Worksheets.Count
With Worksheets(i)
.Select
.Range("A1").Activate
End With
Next i
End Sub

こんな感じではどうでしょうか？
的外れならごめんなさいね。m(__)m