Ciao ,
perchè non provi ad inserire
On error resume next , dovrebbe continuare l'azione,anche in presenza di errori.
codice:
Codice:
Sub ApriLink()
Dim rCell As Range
On error resume next
With Selection
For Each rCell In Selection.Cells
ActiveWorkbook.FollowHyperlink _
Address:=rCell.Value, _
NewWindow:=True
Next rCell
End With
End Sub