コレクション変数のトラブル?
普段はコレクション変数はそんなに使わないので、備忘として。
Private Sub コレクション変数テスト()
Dim LoopCount As Long, Word As Collection
Const MaxCount As Long = 300
Set Word = New Collection
For LoopCount = 1 To MaxCount Step 1
Word.Add LoopCount
Next LoopCount
Stop
End Sub

そこまで 値を入れる事もあまりないから、忘れがちなのですが、
VBE画面では256までしか、確認出来ない事を忘れて!。
20,000行どこ行ったって(笑)
たまに慌てる事がある…、デバッグ中は変数確認しながら行うので。
32bitだけの問題だと思ってたら、64bit365オフィスでもお構いなしに
起こるので、要注意である。
ネットで調べたら、仕様の問題でコレクション変数そのものは 無制限だと…
なんで直さないかな~、忘れた頃にやらかすので直して欲しい。
コードを直に張り付けてみた、テストケースとして見た目良くなるいいのだけど。