Существование листа

Private Function WorksheetIsExist(wBook As Workbook, shName$) As Boolean
    ' Функция проверяет существование листа shName в книге wBook
    On Error Resume Next
    WorksheetIsExist = IsObject(wBook.Worksheets(shName))
End Function