DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Range(Range("A1")).Select
Option Explicit
Sub Test()
Dim ChromePath As String
ChromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
Shell (ChromePath & " -url " & Range("A1").Value)
End Sub