Excel VBAでのIE操作ですでに開いているページを認識するコード

前提・実現したいこと

Excel　VBAでIEを操作したいです。したいことは、すでに開いているIEのページを認識し
その中にある情報を取得してExcelに転機する操作です。

すでに開いているIEのページを認識するコードとしては、以下のように、コード内にInstr関数で、ページタイトルを入力して認識させる方法が主流なようなのですが
そうではなく、今開いていて、アクティブになっているIEをのページを認識する　というコード
で、開いているページに対していちいちコードで特定しなくても動くマクロを作成したいと思っています。

上記のようにするにはどのようにすればいいでしょうか？
よろしくお願いいたします。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

Sub YahooJapan開いているウインドウを取得する()
Dim colSh As Object
Dim win As Object
Dim objIE As InternetExplorer
Set colSh = CreateObject(“Shell.Application”)
For Each win In colSh.Windows
’開いているすべてのウインドウに対して処理する
If TypeName(win.document) = “HTMLDocument” Then
’開いているファイルの種類がHTMLなら処理を実行する
If InStr(win.document.Title, “Yahoo”) > 0 Then
’開いているファイルの「タイトル」にYahooが含まれているなら
Set objIE = win
’このウインドウをobjIEとして指定する
Exit For
’処理を中断してFor~Nextを終了する
End If
End If
Next
If objIE Is Nothing Then’ウインドウが見つからなければ
MsgBox “入力するページが見つかりません”’メッセージを表示して
Exit Sub’処理を終了する
End If
End Sub