VBA(Excelマクロ)を使用して任意のブラウザで、URLからサイトを開きたい

前提・実現したいこと

VBA(Excelマクロ)でエクセルのシート内にあるURLを押下して
任意のブラウザでサイトを開くシステムを作っています。
ブラウザ：IE、Googlechrome

《略式》
URL→クリック→別シートにある文字を確認する→IE又はGoogleかを確認する
→IE→IEでサイトを開く
→Google→GoogleChromeでサイトを開く
→それ以外→メッセージ表示

発生している問題

IE(TnternetExplorer)で、URLからサイトを開くことはできました。
しかし、GoogleChromeを起動されるとこまではできましたが、シート
に書かれているURLからサイトを開く方法が分からない状況

→どのようなコードを記述すればよいか、教えていただきたいです。

以上、宜しくお願い致します。

該当のソースコード

ソースコード
'****************************************
'【機能】入力されたセルの位置確認
'****************************************
Public Sub URL_PG()

'【変数】
Dim r As Long
Dim c As Long
Dim myURL As String

'【コード】
'「URL」シート選択
Sheets("URL").Select
'行
r = ActiveCell.Row
'列
c = ActiveCell.Column
'「ブラウザ」シート選択
Sheets("ブラウザ").Select
'「URL」シートのセルの位置と同じ「ブラウザ」シートのセルの位置選択
Cells(r, c).Select

'「ブラウザ」シート内のブラウザ名の確認
'「IE」の場合
If Cells(r, c).Value = "IE" Then
'「IE」で開く処理へ
    Sheets("URL").Select
    myURL = Cells(r, c).Value
    Call OP1((myURL))
'Googleの場合
ElseIf Cells(r, c).Value = "Google" Then
'GoogleChromeで開く処理へ
Sheets("URL").Select
myURL = Cells(r, c).Value
Call OP2((myURL))
'「ブラウザ」シート内のブラウザ名が指定されている名称以外の場合(空白含む)
Else
'メッセージボックスの表示
 MsgBox "指定されたブラウザ名を入力してください"

End Sub

'****************************************
'【機能】ブラウザ：IEで、サイトを開く
'【引数】
'myURL:IEで開くURL
'****************************************
Sub OP1(myURL As String)

 '【変数】
 Dim objIE As InternetExplorer

 '【コード】
 'IEのオブジェクトを作成する
 Set ocjIE = CreateObject("InternetExplorer")

 With objIE
   'IEを非表示
   .Visible = False
   '指定したURLのページを表示する
   .navigate myURL
   '完全にページが表示されるまで待機する
   Do While ReadyState <> 4
    'Webページが読み込み中
    Do While Busy = True
     '一時的に制御をOSに移す
     DoEvents
    Loop
  Loop
 'IEを表示する
 Visible = True
 End With
 'IEオブジェクトを開放
 Set objIE = Nothing
End Sub


'************************************************
'【機能】ブラウザ：GoogleChromeで、サイトを開く
'【引数】
'myURL:Chromeで開くURL
'************************************************
Sub OP2(myURL As String)

 '【変数】
 Dim ocjGC As InternetExplorer

 '【コード】
 'Chromeのオブジェクトを作成する
 Set ocjGC = CreateObject("WScript.Shell")
 'Chromeのexeがあるフォルダの指定
 objGCCurrentDirectory = "C:\Programe Files\Google\Chrome\Application"
 'Chrome.exeの実行(Trueの場合)
 objGCRun """chrome.exe""", 1, True
 
End Sub




### 試したこと

変数である「myURL」を使って、何とかできないか試しています。

### 補足情報（FW/ツールのバージョンなど）

なし