Удаление всех имен в книге Excel - VB

Формулировка задачи:

Добрый день, знатоки! Выручайте. При создании копии листа в книге екселя, ругается на уже имеющеся имена (Пишет - "перемещаемая .... содержит имя "имярек" которое уже имеется на листе, использовать жто имя?) . Хочу от них избавиться, для работы книги они не нужны, вручную пытался удалить ч/з Вставка->Имя->Присвоить, устал, их там тыщщи.... Похоже макрос нужен, а я их только запускать умею. Нашел макрос по удалению скрытых имен (ниже приведен) а как остальные удалить??? Спасибо.

DeleteHiddenNames()
 n  
 Count  
  n  ActiveWorkbook.Names
      n.Visible 
    n.Delete
    Count = Count + 
     
 n
MsgBox  & Count & 

Решение задачи: «Удаление всех имен в книге Excel»

textual
                            Листинг программы 
                        

                            <font color="blue">Public</font> <font color="blue">Sub</font> DeleteAllNames()
<font color="blue">Dim</font> n <font color="blue">As</font> <font color="blue">Name</font>
<font color="blue">For</font> <font color="blue">Each</font> n <font color="blue">In</font> ThisWorkbook.Names
    n.Delete
<font color="blue">Next</font> n
<font color="blue">End</font> <font color="blue">Sub</font>

                        