[[20130325103022]]　『シート数の取得を実行するとエラーになります。』（けい）　ページの最後に飛ぶ

『シート数の取得を実行するとエラーになります。』（けい）
例題に書かれたとおりに記述したのですが、
何故か「プロパティの使い方が不正です」と表示され、
例題のとおりには行きません。
どうしてでしょうか。
例題は、このように記述しています。

    Sub アクティブブックのワークシート数を取得する()
       ActiveWorkbook.Worksheets.Count
    End Sub

使用環境は、
　EXCEL2007とEXCEL2010

  WindowsXP SP3

御回答をお待ちしています。

 そのプロパティ(情報)を使って、何をしたいかを書いてください

 (例1)
 Sub アクティブブックのワークシート数を表示する()
     MsgBox ActiveWorkbook.Worksheets.Count
 End Sub

 (例2)
 Sub アクティブブックのワークシート数を変数に代入する()
     Dim n As Long
     n = ActiveWorkbook.Worksheets.Count
 End Sub

  (kanabun)

こんにちは。

 シートの枚数が３枚だとすると、けいさんのコードは
 こう書いてあるのと一緒です。

 Sub アクティブブックのワークシート数を取得する()
    3
 End Sub

 エクセル君としては、３をどうしたらいいか分からず
 Worksheets.Countの「Countプロパティがおかしいんじゃないの？」
 と言い出しているのが件のエラーメッセージです。

 例題は、取得のしかたの説明としては正しいのですが、
 Subプロシージャに書くときは、その取得したものをどうするかまで書いてやらないと
 エクセル君が途方に暮れるのでした。

 －佳－

コメント返信：