Richard tiene un libro de trabajo que ha estado usando por un tiempo y tiene bastantes nombres (rangos con nombre, fórmulas con nombre, etc.). Se pregunta si hay una manera fácil de encontrar nombres que no se usan en absoluto, ya que le gustaría deshacerse de esos nombres.

No existe una forma integrada de deshacerse de estos nombres no utilizados. Sin embargo, puede crear una macro que le sirva. Esto se hace más fácilmente utilizando el método Find para averiguar qué nombres tienen referencias que se pueden «encontrar». Si no se puede encontrar la referencia, el nombre no está en uso.

Sub RidOfNames()

Dim myName As Name     Dim fdMsg As String

On Error Resume Next     fdMsg = ""

For Each myName In Names         If Cells.Find(What:=myName.Name, _           After:=ActiveCell, _           LookIn:=xlFormulas, _           LookAt:=xlPart, _           SearchOrder:=xlByRows, _           SearchDirection:=xlNext, _           MatchCase:=False, _           SearchFormat:=False).Activate = False Then             fdMsg = fdMsg & myName.Name & vbCr             ActiveWorkbook.Names(myName.Name).Delete         End If     Next myName     If fdMsg = "" Then         MsgBox "No unused names found in the workbook"

Else         MsgBox "Names Deleted:" & vbCr & fdMsg     End If End Sub

La macro recorre todos los elementos de la colección de nombres y realiza una búsqueda para cada nombre. Si no se puede encontrar el nombre, se elimina. Cuando se completa la macro, muestra un cuadro de mensaje que enumera los nombres que se quitaron del libro.

Si prefiere no crear su propia macro, puede optar por utilizar un complemento gratuito de Jan Karel Pieterse. El complemento, llamado Administrador de nombres, le permite (¿adivinen qué?) Administrar nombres mejor que con Excel nativo. Una de las funciones que proporciona es la capacidad de deshacerse de los nombres que ya no son necesarios. Puedes encontrar el complemento aquí:

http://www.jkp-ads.com/OfficeMarketPlaceNM-EN.asp

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (3312) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Finding_Unused_Names [Encontrar nombres no utilizados].