エクセルVBAで全シートをアクティブにするには？

配列を利用すると可能のようです。Excel2000にて動作確認済みです。

Sub Tesu()
　　Dim n As Long
　　Dim MySheet As Worksheet
　　Dim AllSheet() As Variant
　　ReDim AllSheet(1 To Sheets.Count)
　　n = 1
　　For Each MySheet In Sheets
　　　　AllSheet(n) = MySheet.Name
　　　　n = n + 1
　　Next MySheet
　　Sheets(AllSheet()).Select
End Sub

投稿日時 - 2003-04-04 19:18:21

Sub test()
Dim mySh As Worksheet
For Each mySh In Sheets
mySh.Select
'この中にシート設定のマクロを記述する
Next mySh
End Sub

というのではいかがでしょう？

投稿日時 - 2003-04-03 22:24:13

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select

これは シート１から３まで選択です。

投稿日時 - 2003-04-03 10:09:55

最初のシートから最後のシートまでのインデックスをシフトキー+左クリックで選択してページ設定をしてみては？

投稿日時 - 2003-04-03 09:58:44