IEのタイトルを調べるコード。
タイトルを下に処理を進める際にも。
＜サンプル＞
Sub 開いているIEのタイトルを調べる()
'開いているIEのHPでタイトルを取得する
Dim win As Object
On Error Resume Next
For Each win In CreateObject("Shell.Application").Windows
Debug.Print win.document.Title '出力開始
Next
On Error GoTo 0
End Sub