Buongiorno a tutti.

Ho un piccolo problemino da risolvere...

Ho un foglio di excel dove in alcune celle tramite dei concatena mi si formano degli url.
A me servirebbe che tutti questi url vengano lanciati con un solo click e mi si apra il browser con tutte le pagine degli url.

Per fare questo ho creato una macro:

Public Sub Link()
Application.ScreenUpdating = False
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng As Range
Dim rCell As Range

Set WB = Workbooks("link.xlsm")
Set SH = WB.Sheets("Yes")

Set Rng = SH.Range("I4:R4")

For Each rCell In Rng.Cells
WB.FollowHyperlink Address:=rCell.Value, _
NewWindow:=True
Next rCell

Application.ScreenUpdating = True

End Sub

Le pagine internet mi vengono lanciate ma ci mettono una vita e ho notato che la velocita' di esecuzione varia da sito a sito. Ho quindi dedotto che VBA aspetta "la risposta" del sito prima di lanciare l'url successivo.
Con alcuni url infatti il lancio è lento e prima di aprire la pagina successiva aspetta che la pagina sia caricata mentre in altri siti è immediato (penso che qst rispondano immediatamente).

Esiste un comando che bypassi questo controllo di VBA? Vorrei che una volta lanciata la macro si aprano tutte le pagine del browser immediatamente..

Grazie mille a tutti coloro che mi aiuteranno

Alan