Excel : Macro opens hypelink in selected cells

 

Sub OpenAllHyperlinks()

Dim cell As Range

For Each cell In Selection

If cell.Hyperlinks.Count > 0 Then

cell.Hyperlinks(1).Follow

End If

Next cell

End Sub