ActiveSheet.Shapes("Text Box 67").Select
    Selection.Delete

Sub DeletaAllRangeNames()
Dim myname As Name
    For Each myname In ActiveWorkbook.Names
        myname.Delete
    Next myname
End Sub

ActiveSheet.Shapes("Text Box 67").Select
    Selection.Delete

Sub DelTB()
    Error Resume Next  'отключаем сообщения об ошибках - вдруг указанного поля
                              'не существует

    For i =  1  to  200  ' 200 здесь ~ количество текстовых полей - взято от балды
        ActiveSheet.Shapes("Text Box " & i).Delete
    Next i

End DelTB 'конец:)

On Error Resume Next

End Sub

End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы