Определить, есть ли лист в книге с заданным именем

Function bSheetExist(sName As String) As Boolean
    Dim wksSh As Worksheet
    For Each wksSh In Sheets
        If sName = wksSh.Name Then
            bSheetExist = True
            Exit Function
        End If
    Next wksSh
    bSheetExist = False
End Function

Private Function WorksheetIsExist(iName$) As Boolean
'***********************************************'
' Дата создания 01/01/2005 '
' Автор Климов Павел Юрьевич '
' [url]http://www.msoffice.nm.ru[/url] '
'***********************************************' 
On Error Resume Next
WorksheetIsExist = IsObject(Worksheets(iName$))
End Function

Private Function WorksheetIsExist(iName$) As Boolean
On Error Resume Next
WorksheetIsExist = (TypeOf Worksheets(iName$) Is Worksheet)
End Function

Private Function WorksheetIsExist(iName$) As Boolean
On Error Resume Next
WorksheetIsExist = (TypeName(Worksheets(iName$)) = "Worksheet")
End Function

Private Function WorksheetIsExist(iName$) As Boolean
On Error Resume Next
WorksheetIsExist = (VarType(Worksheets(iName$)) = vbObject)
End Function

Private Function WorksheetIsExist(iName$) As Boolean
On Error Resume Next
WorksheetIsExist = Len(Worksheets(iName$).Name) > 0
End Function

Private Function WorksheetIsExist(iName$) As Boolean
On Error Resume Next
WorksheetIsExist = Worksheets(iName$).Index > 0
End Function

Private Sub Test()
MsgBox WorksheetIsExist("Имя_Рабочего_Листа")
End Sub

Sub Procedure_1()
    
    'Создаём переменную, в которую поместим имя листа.
    Dim sName As String
    
    'Создаём переменную, с помощью которой будем обращаться к нужному листу.
    Dim oSheet As Excel.Worksheet
    
    'Помещаем в переменную имя листа.
    sName = "Имя листа"
    
    'On Error Resume Next - используется, чтобы код продолжил
    'выполняться и при возникновниии ошибки.
    On Error Resume Next
    
        'Присваиваем листу имя oSheet.
        'Если листа нет, то будет ошибка.
        Set oSheet = Worksheets(sName)
        
        'Если будет ошибка, то это выражение Err.Number не будет равно нулю.
        If Err.Number <> 0 Then
            MsgBox "Листа не существует.", vbCritical
        End If
    
    'On Error GoTo 0 - отменяет действие On Error Resume Next
    On Error GoTo 0
    
End Sub

On Error Resume Next
If Worksheets(sName) Is Nothing Then
    'действия, если листа нет
Else
    'действия, если лист есть 
End If

Sub bb()
On Error Resume Next
If 1 / 0 = 5 Then
    Debug.Print "вот так!"
Else
    Debug.Print "другое"
End If
End Sub

   Sub ttt()
    
    'Создаём переменную, в которую поместим имя листа.
    Dim sName As String
    Dim aName As String
    
    'Создаём переменную, с помощью которой будем обращаться к нужному листу.
    Dim oSheet As Excel.Worksheet
    'Помещаем в переменные имена листов.
    sName = "ДАННЫЕ"
    aName = "РЕЗУЛЬТАТЫ"
    bName = "ИТОГИ
 
    On Error Resume Next
    
        'Присваиваем листу имя oSheet.
Set oSheet = Worksheets(sName)
  
    
        If Worksheets(sName) Is Nothing Then
            MsgBox "Проверь имя листа ДАННЫЕ.", vbCritical
   Else
    
Set oSheet = Worksheets(aName)
    
    If Worksheets(aName) Is Nothing Then
            MsgBox "проверь имя листа РЕЗУЛЬТАТЫ.", vbCritical
    Else
Set oSheet = Worksheets(bName)
    
    If Worksheets(bName) Is Nothing Then
            MsgBox "проверь имя листа ИТОГИ.", vbCritical
               Else
            MsgBox "Работа разрешена.", vbCritical  ' работа макроса
    End If
 End If
 End If
    
End Sub

Лист1.Name="Данные"

Sub ttt()
Dim vName, sMsg
  On Error Resume Next
  For Each vName In Array("ДАННЫЕ", "РЕЗУЛЬТАТЫ", "ИТОГИ") 'список можно продолжить
    If Worksheets(vName) Is Nothing Then sMsg = sMsg & vbLf & vName
  Next
  If Len(sMsg) Then MsgBox "Нет листов:" & sMsg, vbCritical
End Sub

Sub ForReName()
Dim iName
  On Error Resume Next
  For Each iName In Array("Данные", "Итоги", "Результаты", "ПромежИтог1", "ПромежИтог2", "ПромежИтог3", "ПромежИтог4") 
    If Worksheets(iName) Is Nothing Then ReName
  Next
  MsgBox "Работа макроса.", vbCritical
End Sub
 
Sub ReName()
    Лист21.Name = "Данные"
    Лист22.Name = "Итоги"
    Лист23.Name = "Результаты"
    Лист24.Name = "ПромежИтог1"
    Лист25.Name = "ПромежИтог2"
    Лист26.Name = "ПромежИтог3"
    Лист27.Name = "ПромежИтог4"
End Sub