VBA IE制御 開いているIE HTMLDocumentの取得では動作が不安定。。 (悩)

HTMLDocumentの取得では動作が不安定なんですよ。

なぜか、一度実行エラーがでると、そのあとは、、

”HTMLDocument"の行でエラーになってしまうので、このコードは使えない。。

For Each objWindow In objShell.Windows

If TypeName(objWindow.document) = "HTMLDocument" Then
　　　 OpenCount = OpenCount + 1
End If

Next

別の方法で。