シートの枚数について

ＶＢＡ初心者なので教えてください。
シートの数を
シートの枚数 = ActiveWorkbook.Worksheets.Count
で数えていますが、ブックに表示されている数は12シートなのに
26となってしまいます。
プロジェクトエクスプローラーというのを開いてみると
シートが26個ありますが
コードが何も書かれていないシートを削除するにはどうしたらいいんでしょうか。
見えているシートのみにすれば
上の
シートの枚数も12になるのでしょうか…

教えてください！

No.2 ベストアンサー 回答者： nitorin 回答日時： 2007/10/31 16:30

恐らくシートが非表示になっているのですね。

こんな感じで。
http://www.relief.jp/itnote/archives/000474.php

であれば、下記を参考にしてください。
Sub Macro1()

Dim objSH As Worksheet ' 処理シート
Dim i As Integer

i = 0
For Each objSH In ActiveWorkbook.Worksheets
If objSH.Visible = xlSheetVisible Then
i = i + 1
End If
Next objSH

Debug.Print i

End Sub

この回答へのお礼

教えていただいたとおり、シートが非表示になっていたようです。
シートも非表示にできるのですね。
勉強になりました。
すばやい解答でとても助かりました。
ありがとうございました。

お礼日時：2007/10/31 16:37

No.1 回答者： hana-hana3 回答日時： 2007/10/31 16:19

「見えていないシートを削除したい」と言うことですか？

それとも、「見えているシートだけカウントしたい」と言うことですか？

＞コードが何も書かれていないシートを削除するにはどうしたらいいんでしょうか。

コード（何らかの文字）の有無と言う判断は、ＶＢＡでコードモジュールにアクセスしないと判断できません。

シートの削除だけなら数行のコードで削除可能です。
非表示になっているシートは本当に削除しても構わない物なのでしょうか？