VBAで「インデックスが有効範囲にありません」エラーが出る。

Question

＜標準モジュール(モジュール名:「md_sample」)＞
Public Const gCNS_SH01_概要  As String = "概要"

＜シートモジュール（シート名:「概要」,オブジェクト名:「SH01_概要」）＞
Sub sample()
  MsgBox Worksheets(gCNS_SH01_概要).Cells(1,1).Value
End Sub

上のシートモジュールのWorksheets関数の呼び出しで、「インデックスが有効範囲にありません」エラーが出たり出なかったりします。
これはVBAのどのような仕様かわかる方いらっしゃいますでしょうか。

（参考）
・エラーが出た場合は、「Worksheets(gCNS_SH01_概要)」の部分をウォッチ式で確認して「Worksheets("概要")」と直した後、「Worksheets(gCNS_SH01_概要)」に戻すと変数でも正常に動くようになります。
そして時間がたつと、また同じエラーが出るようになります。

・シート名を「概要」から変更したり、定数の値を変更したりはしていません。

Comments

[Zuishin]

省略した部分はこちらで補わなければなりません。つまりコードの悪い部分を上書きして正しく動くものをこちらで作ることになります。つまり問題を発見できなくなります。問題の再現する最小のコードを作り、こちらで確認できるようにしてください。

Answer 1

特に問題のあるような記述ではないですね。

原因を特定するものではなく、もし回避できるとしたらとして、思いつくものをピックアップしてみました。
・const 以外で"gCNS_SH01_概要"という変数がどこかで使用されていないでしょうか？
・option Explicitは全て付けていますか？
・事前にconstを参照してみる(x = gCNS_SH01_概要 のようにダミーのロジックを追加する。）

Answer 2

Range、Cells、Rows、Columns、
これらは、頭に[.]が無いと自動的に ActiveSheet が参照されます。

同様に、Worksheets は、頭に[.]が無いと、
ActiveBook が参照されます。

なので、恐らく質問者さんの状況だと、
別のブックがアクティブと認識されている場合に
エラーが起こっている可能性が高いかと。

例えば、ThisWorkBook.WorkSheets(gCNS_SH01_概要) 等
必ず親(ブック)を指定するべきです。

※自分はシート型変数にセットして使うか、
自ブックなら、シートのオブジェクト名を変えて、
オブジェクト名でシートを扱います。
ご参考まで。

Comments

[sazi]

成程。constばかりに目が行ってました。