Crear funcion hipervinculo en excel 2003

[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