Макросы в Excel VBA Макросы Существует ли лист с таким именем?

Существует ли лист с таким именем?

При добавлении листа в excel-файл необходимо сначала проверять: нет ли уже листа с таким же именем?

'Существует ли в книге лист с таким именем??
Public Function SheetExist(wb As Workbook, name As String) As Boolean
    
 wb.Activate
    
 Dim sh As Worksheet
    
 On Error Resume Next
 Set sh = Sheets(name)
    
 SheetExist = Not sh Is Nothing
 Set sh = Nothing
    
End Function

Макрос пытается сопоставить лист с таким именем объектной переменной. Если листа с таким именем нет, то сообщается об ошибке. Что в свою очередь прямо отвечает на вопрос: так есть такой лист в книге или нет?

Кстати, прежде чем выяснять про листы, нужно убедиться, что искромая книга открыта.