vba 全シート 処理

Dim objSH As Worksheet
' ワークシートオブジェクトを順次取得する(あるだけ全て)
For Each objSH In ThisWorkbook.Worksheets
' シート名を表示
MsgBox “シート名=” & objSH.Name
Next objSH

http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_050_02.html
workbookをマクロ以外のシートにしたい場合は
Workbooks(“ファイル名”).Worksheets
とすればＯＫ