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

Ciao ,
perchè non provi ad inserire

On error resume next , dovrebbe continuare l'azione,anche in presenza di errori.

Si, a già meglio. Però si blocca quando c'è un server che da errore di timeout.
Se la pagina non esiste, passa a quella dopo.
Se invece il server non da errore ma rimane li, in attesa, si blocca il programma.
E' in questi casi che ci vorrebbe un timeout... Come fare però?

Se non trovi soluzioni migliori, puoi sempre sbloccare il programma disconnettendoti da internet.
Con i pc di ultima generazione collegati in wireless è estremamente facile perchè ti basta cliccare sull'icona nella barra delle applicazioni.

Non è disconnettendoti da internet che sblocchi Excel, ma chiudendo il programma impostato di default per aprire i collegamenti (quindi chiudendo il Firefox, l'Exlorer o il Chrome del caso): chiudi il programma o lo riavvii, e vedrai che dopo si sblocca anche Excel.