VBA mở web Chrome từ Selected range chứa địa chỉ website trong Excel

 Mở 1 cell

Sub CopyActiveCellLinkAndOpenChrome()

    Dim link As String

    Dim chromePath As String

     link = ActiveCell.Value

    

     chromePath = "C:\Program Files\Google\Chrome\Application\chrome.exe"

        Shell chromePath & " " & link, vbNormalFocus

End Sub

Mở hàng loạt cells

Sub CopyActiveCellsLinkAndOpenChrome()

Dim chromePath As String

    Dim cell As Range

    

    chromePath = "C:\Program Files\Google\Chrome\Application\chrome.exe"

    

    For Each cell In Selection

        link = cell.Value

        Shell chromePath & " " & link, vbNormalFocus

    Next cell

End Sub