Sabemos que los nombres puede tener alcance solo en las hojas o en todo el libro.
Entonces, para conocer si un nombre existe EN UNA HOJA, esta es la macro. Reemplazá ActiveSheet por el nombre de la hoja que necesitas revisar.
Sub consultaNombres()
'x Elsamatilde
nbre = InputBox("Ingresa el nombre que buscas en ESTA HOJA")
For x = 1 To ActiveSheet.Names.Count
If ActiveSheet.Names(x).Name = ActiveSheet.Name & "!" & nbre Then
MsgBox "El nombre se encuentra en la hoja",,"ATENCIÓN"
Exit For
End If
Next
End Sub
Observa que al nombre se le antepone el nombre de la hoja a revisar.
Si debes revisar en todo el libro no hace falta todo esto, solo hacer mención a ActiveWorkBook.
Sdos y no olvides finalizar la consulta si el tema queda resuelto.
Gracias Elsa Matilde, muchísimas gracias. Te amo. - Freddy Alcivar