Open Hyperlinks in a New Tab

[sl729]

hi folks,

is there a better way to write this code

Sub OpenHyperlinks()

' Open hyperlinks in a new tab

   'Columns("A:A").Select.Hyperlinks.Follow      'did not work

    Range("A2").Hyperlinks(1).Follow
    Range("A3").Hyperlinks(1).Follow
    Range("A4").Hyperlinks(1).Follow
    Range("A5").Hyperlinks(1).Follow
    Range("A6").Hyperlinks(1).Follow
    Range("A7").Hyperlinks(1).Follow
    Range("A8").Hyperlinks(1).Follow
    'etc
    
End Sub

I am trying to open the hyperlinks found in a column. They open in firefox - each one ina new tab.

I am sure there is an elegant way to write this - but i dont know how

thank you
sl