¿Cómo abrir por lotes las URL en las celdas seleccionadas en Excel en orden?

¡Prueba este! ¡Hay una función para abrir hipervínculos! '---código vba----

Sub?BatOpenUrl() Dim?Url?As?String?，Pi?as?long? Pi=2 ¿Shell?"explore.exe?" amp;?cells(pi,3) tiempo de espera?1 doevents pi=pi 1 bucle?cells(pi,3)lt;gt;""

Fin?Sub

Sub? ¿tiempo de espera?(retraso) T=temporizador ¿los eventos se repiten?mientras?(temporizador-T)lt；retraso

Fin?Sub