The Excel VBA to Open Hyperlinks

openhyperlinks.bas

Sub OpenSelectLinks()
  '
  '   Allen,
  '   Open Links with Selections
  '
  With Selection.Interior
      For Each Hyperlink In Selection.Hyperlinks
          Hyperlink.Follow NewWindow:=False, AddHistory:=True
          'Hyperlink.Range.Interior.Color = vbRed ' Change Interior Color
          Hyperlink.Range.Font.Color = vbRed ' Change Font Color
      Next
  End With

End Sub