Macro generador de hipervinculos según contenido de celda

[matiuru]

Tengo un libre en donde hay varias celdas con contenido alternado, es sobre equipos de futbol.

Necesito un macro (o quizas se puede hacer mediante alguna función) en donde me convierta determinado texto en determinado hipervinculo.

Ejemplo tengo celda a20 q dice "Futbol". Al activar el macro esa celda "Futbol" que sea un hipervinculo a una url

[Armando Montes]

Hola, tal vez algo asi:

Sub HiperLigas()

For Each cell In Selection

If cell Like "*futbol*" Then

ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:="gmail.com"

End If

Next

End Sub[/CODE]