Disculpas si me repito pero ... ¿Como borrar los nombres en un l ib

Saludos,
Como ya pregunté anteriormente,
tengo la siguiente rutina con la que borro todos los nombres de celda en un
libro y sigo teniendo dos preguntas:

1ª ¿Como podria borrar los nombres de solo una hoja cualquiera?

2ª Ya que el libro tiene más de 1500 nombres, y con esta rutina el proceso
se alarga en exceso, no existe alguna otra forma de mejorar el tiempo de
ejecución.

Sub borrar_Nombres()
Dim nombCelda As Name
Dim n As Integer
'Recorrer el conjunto de objetos Names y eliminar
For Each nombCelda In ActiveWorkbook.Names
nombCelda.Delete
Next

End Sub

Gracias de nuevo.