Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Function SheetExists(ShName As String) As Boolean
Dim Sh As Worksheet
SheetExists = False
For Each Sh In ActiveWorkbook.Sheets
If Sh.Name Like ShName Then
SheetExists = True
Set Sh = Nothing
Exit Function
End If
Next Sh
End Function
Function SheetExist(strSheetName As String) As Boolean
Dim objSheet As Object
On Error GoTo HandleError
ThisWorkbook.Worksheets(strSheetName).Activate
SheetExist = True
Exit Function
HandleError:
SheetExist = False
End Function
Function SheetExists(SheetName As String) As Boolean
Dim obj As Object
On Error GoTo errorHandler:
Set obj = sheets(SheetName)
SheetExists = True
Exit Function
errorHandler:
SheetExists = False
End Function
Function Sh_Exist(sName As String) As Boolean
Dim wsSh As Worksheet
On Error Resume Next
Set wsSh = Sheets(sName)
Sh_Exist = Not wsSh Is Nothing
End Function
Ссылка на статью , где описано как применить в виде функции и вне её.
