VBA Macro to open URLs in Chrome

Kris84

New Member
Joined
Jul 11, 2017
Messages
7
Dear Forum,

I was wondering if anyone could help me get to a solution to this issue.

Basically on my excel sheet I have a list of URLs (not hyperlinked ie. clickable) all listed under Column G. Column G can only be populated with URLs from cell G4 to cell G104; however it might also contain empty cells - which in this case I'd like the code to skip / ignore and move to the next URL under it.

Getting to here did not seem to be as hard as I thought as I found plenty of solutions online however I specifically need these URLs to be opened in Chrome and in seperate tabs (one tab per URL) and not windows. Access certificates for these URLs are only enabled on the Chrome browser and I have no control on this; hence it's imperative that the code uses Chrome.

Is there any way I could use VBA to get this done? Unfortunately my coding proficiency is not of the highest level.

I appreciate any help and thank you in advance for any tips you might provide.

Chris
 

Excel Facts

Whats the difference between CONCAT and CONCATENATE?
The newer CONCAT function can reference a range of cells. =CONCATENATE(A1,A2,A3,A4,A5) becomes =CONCAT(A1:A5)
Hi again!

Upon some further research I managed to get to this:

Code:
Sub Open_HyperLinks()
    Dim chromePath As String, hl As Hyperlink


    chromePath = Environ("PROGRAMFILES(X86)") & "\Google\Chrome\Application\chrome.exe"
 If Selection.Count > 1 Then
    Selection.SpecialCells(xlCellTypeVisible).Select
 End If
    'On Error Resume Next
    For Each hl In Selection.Hyperlinks
        Shell chromePath & " -url " & hl.Address
      Next hl
End Sub

It works almost perfectly and I can see the code attempting to open the links on chrome on seperate tabs. However I ran into another issue which I did not forsee in the beginning when attempting to tackle this project. All my hyperlinks (under one column) are being generated by a formula in each cell: =HYPERLINK(G4) / =HYPERLINK(G5) and so on.

In theory, the macro does not seem to be opening the URL in hyperlink but the actual formula itself from which the hyperlink has been generated. Is there any way the above code can be tweaked for the macro to actually open the hyperlink I need to access?

Thank You once more for your time!
Chris
 
Last edited:
Upvote 0

Forum statistics

Threads
1,216,077
Messages
6,128,679
Members
449,463
Latest member
Jojomen56

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top