Crear macro para hipervinculos

[gou]

Tengo dos columnas en una misma hoja de excel y necesito crear una macro que me automatice la creación de hipervínculos. En la columna A tengo filas con la palabra comprar y en la columna B filas con los destinos de las páginas web donde quiero que se me dirija al hacer click en la palabra comprar. Añado también, por si fuese de ayuda que el formato final del archivo es csv, para después importarlo como administrador de una página web.

Gracias

[Armando Montes]

Hola, aqui hay una solucion:

Sub URL_List()

    For Each cell In Selection

        If cell.Value <> "" Then

            If Left(cell.Value, 7) = "http://" Then

                URL = cell.Value

            Else

                URL = "http://" + cell.Value

            End If

            ActiveSheet.Hyperlinks.Add Anchor:=cell, _

              Address:=URL, TextToDisplay:=cell.Value

        End If

    Next cell

End Sub[/CODE]

[Armando Montes]

Fuente:

Converting a Range of URLs to Hyperlinks (Microsoft Excel)