Macro failing to open all of my links in excel

[squeakums]

So, I created an excel document that created hyper links to each site I pull from. I created a macro that clicks on those links and opens each one. My macro often fails to open all of them for some odd reason? The macro clicks on each cell and opens the hyperlink. Sometimes it opens a few more than the first run. Is there a way around this where I can have it open all of my hyperlinks? I checked the cells, click on the hyperlinks and they work if I do it manually, and they are all in the B cells. A little nerve racking.

Range("B13").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("test.xlsm").Activate
Range("B11").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("test.xlsm").Activate
Range("B3").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("test.xlsm").Activate
Range("B4").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("test.xlsm").Activate
Range("B5").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("test.xlsm").Activate

 

[DataBlake]

try FollowHyperlink Address method

ActiveWorkbook.FollowHyperlink Address:=ActiveSheet.Range("B13").value

 

[squeakums]

Causes an unexpected error and requires a debug. This brings up would you like to open a file, it might have a virus; its just a thing with my company, I always hit yes that's fine, or yes and it goes with the other code but it debugs with this code.

 

[DataBlake]

where are you running the code from, whats the error that pops up and what is the line it is highlighting when you hit "debug"?
the only thing i could think as to why that isnt working is the text is different than the hyperlink? or you arent running the code in the same workbook or the same sheet.

 

[squeakums]

It was because one of the links was opening an visual studio and then the web hyperlinks. I changed the order in my original code and it seemed to fix the issue.

 

[DataBlake]

awesome.
you can also use this code to open any hyperlinks in column B

Sub HLtest()
Dim ws As Worksheet
Set ws = ActiveSheet

For Each lnk In ws.Range("B:B").Hyperlinks
ActiveWorkbook.FollowHyperlink lnk.Address
Next lnk
 
End Sub

just in case the text value of the cell is different than the link itself