VBA Script to open URLs

[chrissishrimp]

Hi,

I have a VBA script to open URLs from selected cells in excel.

However it is opening each URL twice - any help to ensure it only opens one for each cell would be great. The VBA is:

Sub OpenURLs()
Dim myCells As Range, oneCell As Range
Set myCells = Selection

For Each oneCell In myCells
ThisWorkbook.FollowHyperlink oneCell.Value
Next oneCell
End Sub


Thanks, Christian

 

[Leith Ross]

Hello Christian,

This should work...

Sub OpenURLs()


    Dim myCells As Range, oneCell As Range
    
        Set myCells = Selection


        For Each oneCell In myCells
            On Error Resume Next
                oneCell.FollowHyperlink
            On Error GoTo 0
        Next oneCell
        
End Sub