Sloccare Excel bloccato in apertura di collegamento internet

Ciao
Tempo mi era stata suggerita questa splendida macro per aprire dei collegamenti su celle excel semplicemente selezionandoli e lanciando la macro.

------------------------------------------
Sub ApriLink()
Dim rCell As Range

With Selection
For Each rCell In Selection.Cells
ActiveWorkbook.FollowHyperlink _
Address:=rCell.Value, _
NewWindow:=True
Next rCell
End With
End Sub
-----------------------------------------

Solo che, col tempo mi sono accorto che spesso si blocca quando un link non si apre perchè irraggiungibile. A volte rimane bloccato per 2-3 minuti e poi da errore, altre volte bisogna forzare la chiusura. Allora mi domandavo se non esiste la possibilità di aggiungere un timeout, nel senso che se rimane inattivo per 5 secondi, passa al collegamento successivo senza dare errore.
Grazie