エクセルVBA 非表示シートがあるとエラー

VBA初心者です。
エクセル2007を使用しております。

同一ブック内にある全てのシートで特定のマクロ(下記の例では×××)を実行するようにVBAマクロを個人用マクロブック上に作成しております。

Sub シート一括処理()
Dim Sht As Worksheet
For Each Sht In Worksheets
Sht.Select
Call ×××
Next Sht
End Sub

ブック内に非表示シートがあった場合、エラーとなります。
=====================
実行時エラー'1004'
'select'メソッドは失敗しました:
=====================

下記のような要件を満たすにはどのように修正すればよいでしょうか。
・非表示シートに対しても、×××マクロは適応したい。
・非表示シートは暫定的に表示してもよいが、最終的には非表示の状態にしたい。

よろしくお願いします。

No.1 ベストアンサー 回答者： keithin 回答日時： 2012/08/11 18:35

推奨：

ＸＸＸマクロの方を改修し、事前にセレクトとかしておかないでも実行できるマクロにします。



今のままの延長：
セレクトしないとＸＸＸが実行できないなら、表に出してセレクトするだけです。

sub macro1()
　dim w as worksheet
　dim v
　application.screenupdating = false
　for each w in worksheets
　　v = w.visible
　　w.visible = true
　　w.select
　　call ＸＸＸ
　　w.visible = v
　next
　application.screenupdating = true
end sub

この回答へのお礼

「今のままの延長」の方で問題なく作動しました。
有難うございました。

お礼日時：2012/08/11 22:19