Hacer visibles los nombres definidos en una hoja Excel

Cuando usamos varios nombres en nuestras hojas suele surgir la necesidad de visualizar los rangos a que se refieren los nombres.
El método más inmediato es usar Pegar Nombres-Pegar Lista, que accedemos con la tecla F3

De esta manera obtenemos una lista de los rangos de los nombres, pero si buscamos un método más visual tendremos que echar mano a otras técnicas.

Un viejo y conocido truco es reducir el nivel de zoom en la hoja a menos de 40%

Al hacerlo los nombres aparecen sobre los rangos. Pero este método tiene sus inconvenientes. El tamaño de los nombres se adecua al tamaño del rango, haciendo que alguno de ellos sea ilegible. Además el nivel de zoom dificulta la lectura y el trabajo en la hoja.

La solución que propongo es una macro que ponga un fondo de color al rango del nombre definido e inserte un comentario en la primer celda del rango.

El código de la macro es el siguiente:

 Sub mostrar_nombres()  
   Dim n As Name  
   Dim strNameStart As String  
   For Each n In ActiveWorkbook.Names  
     Range(n.RefersTo).Interior.ColorIndex = 36  
     strNameStart = Left(n.RefersTo, WorksheetFunction.Find(":", n.RefersTo) - 1)  
     With Range(strNameStart)  
       .AddComment   
       .Comment.Text n.Name  
     End With  
   Next n  
 End Sub  

Y este el resultado despues de activar la macro

Si queremos que los comentarios no sean visibles definimos la propiedad Visible como False

 Sub mostrar_nombres()  
   Dim n As Name  
   Dim strNameStart As String  
   For Each n In ActiveWorkbook.Names  
     Range(n.RefersTo).Interior.ColorIndex = 36  
     strNameStart = Left(n.RefersTo, WorksheetFunction.Find(":", n.RefersTo) - 1)  
     With Range(strNameStart)  
       .AddComment  
       .Comment.Text n.Name  
       .Comment.Visible = False  
     End With  
   Next n  
 End Sub