texto y hipervinculo

¡Importante!: Colabora con el grupo. Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
Hola!

mediante este código

Dim Celda As Range

For Each Celda In Selection
ActiveSheet.Hyperlinks.Add Anchor:=Celda, Address:=Celda.Offset(0, 1), _
TextToDisplay:=Celda.Value
Next Celda

aplicarás a las celdas de texto seleccionadas la dirección de hipervinculo
de la siguiente columna.

Saludos a todos
Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"tomaste" escribió en el mensaje
news:

Hola,
tengo 2 columnas una celda con el texto y otra con el hipervinculo,
quiero copiar el hipervinculo a la celda del texto y que quede visible
el texto, supongo con si tengo numerosas filas el problema ha de
resolverse de igual manera,

gracias