Macro para copiar celdas con hypervinculos

[TanyaVfer]

Buenos dias,

necesito ayuda tengo una lista de nombres hypervinculados y he creado una macro para q me copie esos nombres de una hoja a otra del mismo libro pero el problema es q me copia solo los nombres sin el hypervinculo como lo puedo solucionar para que me haga una copia exacta?

Muchas gracias

Un saludo

Este es el código q tengo:

Public Const columna_inicio = 4

Public Const fila_inicio = 21

Sub prueba()

Application.ScreenUpdating = False

Sheets("Inicio").Select

Servicios = Cells(fila_inicio, columna_inicio)

Sheets("Hoja1").Select

i = 2

j = 13

Do While Cells(i, 2) <> ""

If Cells(i, 2) = Servicios Then

servicio = Cells(i, 1)

Sheets("Inicio").Select

Cells(j, 13) = Sheets("Hoja1").Hyperlinks(servicio).Name

Cells(12, 13) = "Empresas :"

Range("M12").Font.Bold = True

Range("M13").Font.Bold = False

Cells(17, 4) = "..."

j = j + 1

Sheets("Hoja1").Select

End If

i = i + 1

Loop

Sheets("inicio").Select

If j = 13 Then

X = MsgBox("No hay empresas asociadas a este servicio")

End If

Application.ScreenUpdating = True

If Not j = 13 Then

MsgBox ("Pinche sobre las empresas para acceder a la información")

End If

End Sub

Catálogo v1.xls

[Invitado Gengis Khan]

Suba el archivo para que no tengamos que generar el entorno de pruebas.

Comprenda que son muchos los temas que hay que responder a lo largo del día y si tuvieramos que generar el entorno de pruebas de cada una de ellos no acabaríamos nunca.

[TanyaVfer]

Y esta subido!muchas gracias por la ayuda!