Web Linki Açma (Hücreye göre)

[leonadies]

Arkadaşlar bir çalışmada P sütununda bazı hücrelerde (p10,p25,p38,p250 .....vb) web sayfa linkleri yer alıyor. İsteğim bu hücreye tıklayınca o hücredeki web sayfasını açması şeklinde..

Örneğin P105 e tıkladım Chrome üzerinden o hücrede olan web sayfasını açacak

 

[askm]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [P106]) Is Nothing Then Exit Sub
  Dim chromePath As String
  chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
  link = Target.Value
  Shell (chromePath & link)

End Sub