加山さん

コメントありがとうございます。

既に開いているページでしたら、
ページを起動する部分を↓のプログラムに入れ替えてもらえればいけるかなとおもいます。

開いているページの名前を参照する必要がありますので、
○○○○をページ名に入れ替えていただければと思います。

'*****↓ここまでは以前と一緒***************************************************
'IEの起動
Dim objIE As Object 'IEを格納する変数（オブジェクト型）
Dim sh As Object '起動中のShellWindow一式を格納する変数
Dim win As Object 'ShellWindowを格納する変数

Dim document_title As String 'ドキュメントタイトルの一時格納変数
'起動中のShellWindow一式を変数winsに格納
Set sh = CreateObject("Shell.Application")
'ShellWindowから1つずつ取得して処理
For Each win In sh.Windows
'ドキュメントタイトル取得失敗を無視（処理継続）
On Error Resume Next
document_title = ""
document_title = win.DOCUMENT.Title

Debug.Print document_title

On Error GoTo 0
'タイトルバーに○○○○が含まれるかチェック
If InStr(document_title, "○○○○") > 0 Then
'変数ieに取得したwinを格納
Set objIE = win
'ループを抜ける
Exit For
End If
Next

'*****↑ここまでは以前と一緒***************************************************

可能であれば、方法を是非教えて頂きたいです。