XXXXXさんへ VBA IEで二つのページを表示 .Navigate2 メソッド &H800指定で新規タブ隣のタブ

下記の質問をいただきました。

VBAでIEをヤフーとAmazonを同時に開く事は可能でしょうか。
また開くソースを教えて頂けますでしょうか。
お手数ですが、
宜しくお願い致します。

単純に二つの変数を使って起動したパターン
と
隣のタブに表示するパターン
二つを作成してみました。

www.youtube.com
【VBA IE操作】.Navigate2 メソッド &H800指定で新規タブ隣のタブ表示のテスト【三流君】 - YouTube

Option Explicit

'変数を二つ使って、別々のIEを起動する
Sub IE_20121212test001()

'一つ目 IEの起動
    Dim objIE As Object '変数を定義します。
    Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
    objIE.Visible = True      '可視、Trueで見えるようにします。
    
'表示位置(左上の座標)とサイズ(高さ・幅)を調整する
    objIE.Top = 0      '左上 上位置
    objIE.Left = 0     '左上 左位置

'ページの表示
    '処理したいページを表示します。
    objIE.Navigate "https://www.yahoo.co.jp/"  '.Navigate メソッドで Yahoo表示する。

'二つ目 IEの起動
    Dim objIE2 As Object '変数を定義します。
    Set objIE2 = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
    objIE2.Visible = True      '可視、Trueで見えるようにします。
    
'表示位置(左上の座標)とサイズ(高さ・幅)を調整する
    objIE2.Top = 50      '左上 上位置
    objIE2.Left = 50     '左上 左位置

'ページの表示
    '処理したいページを表示します。
    objIE2.Navigate "https://www.amazon.co.jp/"  '.Navigate メソッドで Amazon表示する。

End Sub


'隣のタブに表示する Yahoo,Amazon の二つのページをタブで表示する
Sub IE_20121212test002()

'IEの起動
    Dim objIE As Object '変数を定義します。
    Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
    objIE.Visible = True      '可視、Trueで見えるようにします。
    
'表示位置(左上の座標)とサイズ(高さ・幅)を調整する
    objIE.Top = 0      '左上 上位置
    objIE.Left = 0     '左上 左位置

'ページの表示
    '処理したいページを表示します。
    objIE.Navigate "https://www.yahoo.co.jp/"  '.Navigate メソッドで Yahoo表示する。

'隣のタブにAmazonを表示
    '処理したいページを表示します。.Navigate2 メソッドで&H800指定で隣のタブ
    objIE.Navigate2 "https://www.amazon.co.jp/", &H800 '新しいタブにAmazon表示する。

End Sub