A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data
Hi Steve,
We can achieve this by using VBA:
- Right click the sheet name > View Code.
- Paste the following code:
Sub OpenHyperLinks()
Dim xHyperlink As Hyperlink
Dim WorkRng As Range
On Error Resume Next
xTitleId = "OpenHyperlinksInExcel"
**Set WorkRng = Application.**Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each xHyperlink In WorkRng.Hyperlinks
xHyperlink.Follow
Next
End Sub
- Click the Save button, save it as .xlsm file.
- Back to the sheet, select the cells which contain the hyperlinks (you may need to press the Shift or Ctrl key when selecting the cells), right click the sheet name > View Code > press F5, click OK.
Regards,
James