Activating Hyperlinks via VBA

[5th4x4]

I have a column full of hyperlinks that I want to activate using vba (click-click-click right down the column, which opens IE tabs), but I cannot seem to find the method that will activate the hyperlink instead of just the cell.
I've tried some SendKey attempts, but still no luck.

Any ideas as to how this is done within vba ?<!-- google_ad_section_end -->

 

[thomassharp]

Two similar questions on this topic?
Using this code
URL = Range("H2").Text
Shell "C:\Program Files\Internet Explorer\iexplore.exe " & URL, vbNormalNoFocus

1. Can it open multiple tabs rather than individual opens of Excel?
2. Can you specify a range (like H2:h12 rather than just H2) so that it will “loop” through several rows in one column?
   

I used this but it's quite slow with more than a few, i needed a proper solution as well but this does work:

Sub Hyperlink()
Shell "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe " & Range("B2").Text
Shell "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe " & Range("B3").Text
End Sub

 

[HJReed]

You've hit the same issue I have, opening multiple occurrences. That's why I was hopeful opening tabs would be faster. We've all built these URL's in a column (mine for Stockcharts.com) and I want to be able to loop through them using VBA rather than selecting each cell/stock separately. It appears excel doesn’t truly built a URL if you concatenate a string together even though you can click on a cell containing a built address and it works.

Thank you for the quick reply. I appreciate it!

 

[bbrnx19]

You've hit the same issue I have, opening multiple occurrences. That's why I was hopeful opening tabs would be faster. We've all built these URL's in a column (mine for Stockcharts.com) and I want to be able to loop through them using VBA rather than selecting each cell/stock separately. It appears excel doesn’t truly built a URL if you concatenate a string together even though you can click on a cell containing a built address and it works.

Thank you for the quick reply. I appreciate it!

Try

For Each Item In Range("H2:H3")
Shell "explorer.exe " & Range(Item.Address).text
Next