Siempre he creído que una de las características natas de mi persona por la cual siempre termino aprendiendo habilidades inusuales es mi pereza, la falta de ganas de hacer una tarea repetitiva una y otra vez y es que por que hacer una tarea miles de veces si puedes hacer una actividad UNA solo vez y ya (aunque sea más difícil). Esto ha provocado que constantemente busque como realizar diferentes tareas de la manera más simple posible y al mismo tiempo (después de verme) muchos de mis amigos me consulten sobre como realizar diferentes tareas (algunas que la verdad jamas hubiera imaginado siquiera).
Justo hace unos días uno de mis amigos me pidió ayuda para obtener las direcciones de correo de una tabla de excel, no es que sea tonto ni nada similar, sino que los correos electrónicos venían en celdas con hipervinculos, es decir la celda traía un hipervinculo de correo electrónico pero no la dirección, se podría cambiar “fácilmente” dando clic derecho sobre la celda y después modificar hipervinculo sin embargo el numero de registros era enorme y seria muuuy tardado, por lo cual se me ocurrió realizar una pequeña macro que nos ahorrara mucha chamba (insisto, soy huevon).
Nunca antes me había visto en la necesidad de crear una macro pero ya que a fin de cuentas están basada en visual basic no pensé que fuera tan difícil y la verdad no lo fue, de hecho lo único tardado fue encontrar los métodos adecuados para realizar esta tarea (que esperaban es la primera vez que hago una).
La macro resultante es la siguiente:
Sub Macro()
Dim celda As String
Dim link As String
Dim n As Integer
For n = 1 To 1168' bucle que hara lo mismo desde la celda E1 hasta la celda E1168
celda = "E" & n
Range(celda).Select
If ActiveCell.Hyperlinks.Count > 0 Then' nos aseguramos de que tenga hipervinculo
Selection.Hyperlinks(1).TextToDisplay = Selection.Hyperlinks(1).Address' si tiene hipervinculo lo mostramos
End If
Next
End Sub
No tengo idea de si esta macro puede servirle a alguien pero de cualquier manera quería compartirla, seguramente habrá una manera más fácil de hacerlo pero insisto es mi primera vez, así que no sean muy rudos 
Actualización 16-01-2009: Carla preguntaba como hacer un indice para las hojas de excel, pues bien, después de buscar un poco me encontré con la solución, básicamente es necesario crear un nuevo modulo en el libro de excel y escribir:
Sub Links_hojas()
Dim wrbLibro As Workbook
Dim wrsHojaActiva As Worksheet, wsHoja As Worksheet
Dim intFila, intColumna As Integer
Set wrbLibro = ActiveWorkbook
Set wrsHojaActiva = ActiveSheet
'en que fila/columna empezar la lista
intFila = 4
intColumna = 1
'el bucle repasa todas las hojas
For Each wsHoja In wrbLibro.Worksheets
'para excluir hoja de los links
If wsHoja.Name = "Hoja4" Then GoTo ProxHoja
'crear links
If wsHoja.Name <> wrsHojaActiva.Name Then
'Nota: las siguientes 3 lineas escribanlas en una
wrsHojaActiva.HyperLinks.Add wrsHojaActiva.Cells(intFila, intColumna),
"", SubAddress:="'" & wsHoja.Name & "'!A1",
TextToDisplay:=wsHoja.Name
intFila = intFila + 1
End If
ProxHoja:
Next wsHoja
End Sub
El articulo original esta disponible en xltoday.net lugar en el cual encontraran muchos otros ejemplos de macros 
Post's relacionados...
