エクセルのセルにあるアドレスをEdgeで開きたい。

既定のブラウザはChromeだが、社内のサイトなどで、どうしても、Edgeじゃないと開かないサイトがある。

私はエクセルによく使うサイトを貼り付けているので、そのリンクをEdgeで開きたい。その時のマクロ

非常にシンプル

Sub Edgeでアドレスを開く()

Dim URL As String

URL = ActiveCell.Value

CreateObject("WScript.Shell").Run ("msedge.exe " & URL)

End Sub