ダブルクリックで任意のwebサイトを起動

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' セルA1をダブルクリックした時に指定のURLを開く
    Dim strURL As String ' URL文字列
    strURL = "http://www.example.com" ' 開きたいホームページのURLに書き換えてください
    
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        ' デフォルトのブラウザでURLを開く
        ThisWorkbook.FollowHyperlink Address:=strURL, NewWindow:=True
        Cancel = True ' ダブルクリックによるセルの編集をキャンセル
    End If
End Sub