Существует ли лист с таким именем?
При добавлении листа в 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
Макрос пытается сопоставить лист с таким именем объектной переменной. Если листа с таким именем нет, то сообщается об ошибке. Что в свою очередь прямо отвечает на вопрос: так есть такой лист в книге или нет?
Кстати, прежде чем выяснять про листы, нужно убедиться, что искромая книга открыта.