Форум по VBA и MS Office

Как удалить все имена заданного листа?

Т.е. нужно удалить имена, у которых здесь: вкладка "Формулы" - группа "Определенные имена" - Диспетчер имен - в столбце "Область" записано имя заданного листа.

После Worksheets в скобках укажите имя листа, чьи имена надо удалить.

Sub Макрос()

    Dim i As Long
   
    For i = Worksheets("Имя листа").Names.Count To 1 Step -1
        Worksheets("Имя листа").Names(i).Delete
    Next i
   
End Sub

спасибо