Answers for "open multiple urls from excel"

0

open multiple urls from excel

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
Posted by: Guest on February-16-2022

Browse Popular Code Answers by Language