Private Function SheetExists(sname) As Boolean
    Dim x As Object
    On Error Resume Next
    Set x = ActiveWorkbook.Sheets(sname)
    If Err =  0  Then SheetExists = True Else SheetExists = False
End Function

Sub test()
    If SheetExists("Лист1") = True Then MsgBox "Лист существует"
End Sub

Sub g()
Application.DisplayAlerts = False
Sheets( 1 ).Delete
Application.DisplayAlerts = True
End Sub

Public Function FindList(SheetName As String) As Boolean
   Dim i As Integer
  FindList = False
     For i =  1  To ThisWorkbook.Sheets.Count 
       If ThisWorkbook.Sheets(i).Name = SheetName Then 
         FindList = True
        Exit Function
      End If
  Next i
End Function

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

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

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

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

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