[SOLUCIONADO] Crear funcion hipervinculo en excel 2003

[Cocko]

Tengo un libro de cálculo con 30 hojas cuyos nombres son de 3 letras cada una, y en cada una de esas hojas hay una base de datos donde hay unas 60 celdas con los nombres de las demás hojas y se irán agregando más… la intención es hacer que una función automatizada si es posible que cree un hipervínculo en cada una de las celdas que tengan el nombre de alguna de las hojas hacia la hoja del mismo nombre, conservando el nombre y fuente de la celda origen, sólo subrayando y el respectivo color azul/morado.

Nunca he trabajado con macros aún, creo que sería más que hora tal vez…
Por si alguna otra solución o algún otro programa es más conveniente háganlo saber…
Desde ya, muchasss gracias por romperse el bocho…
(tengo un ejemplo gráfico, pero no supe cómo pegarlo acá, si me indican lo haría)

[yenay]

Puede ser que tarde un poco pero usa este código a ver que tal:

Option Base 1
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 05/03/2008 por *
'

'

num = Worksheets.Count
ReDim hojas(num)

ActiveCell.SpecialCells(xlLastCell).Select
ultimacolumna = Selection.Column
ultimafila = Selection.Row

For i = 1 To num
hojas(i) = Sheets(i).Name
DoEvents
Next i

For a = 1 To num
Sheets(a).Select
For x = 1 To ultimafila
For y = 1 To ultimacolumna
For i = 1 To num
If Cells(x, y).FormulaR1C1 = hojas(i) Then
Cells(x, y).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Cells(x, y).FormulaR1C1 + "!A1", TextToDisplay:=hojas(i)
Else
End If
DoEvents
Next i
DoEvents
Next y
DoEvents
Next x
DoEvents
Next a


End Sub