Hey,
Thanks for all the help.
Got the Solution. Here is the script:
Sub OpenLinks()
Dim Cell As Range
Set LinkRng = Range("A1").CurrentRegion.Columns(1)
On Error Resume Next
For Each Cell In LinkRng.Cells
Cell.Hyperlinks(1).Follow
Next
On Error GoTo 0
End Sub
But I need to keep the URLs only in A row and all should Hyperlinked. That still can do my work for now.
Cheers,
Rishu Mehra