Macro para hacer hipervinculos

[mrocf]

Incorpora el siguiente código:

Código:

Sub HyperLinksInCells()
    For Each Celda In Range(ActiveCell, ActiveCell.End(xlDown))
        ActiveSheet.Hyperlinks.Add Anchor:=Celda, Address:=Celda.Value
    Next Celda
End Sub

UTILIZACIÓN:
Supongamos que tus direcciones se encuentren en el rango A2:A1000.

Ubícate en la celda A2 y ejecuta la macro que he denominado "HyperLinksInCells".
Al cabo de unos segundos cada celda del rango tendrá asignada el vínculo.

La macro se detiene cuando encuentra una celda vacía (para el ejemplo citado: la celda A1001).

Suerte.