Удаляю лист книги и пытаюсь ее сохранить ...

[Naeel Maqsudov]

О! Лучше даже переписать так:

Код: Выделить всё

Function SheetPresent(ByVal ABook As String, ByVal ASheet As String, ByRef Sh As Object) As Boolean
   On Error Resume Next
   Set Sh = Workbooks(ABook).Worksheets(ASheet)
   SheetPresent = Not IsEmpty(Sh)
End Function

Тогда удобно будет удалять лист:

Код: Выделить всё

   Dim S as Object
   ...
   if SheetPresent("Книга1","Лист2",S) then S.Delete

Т.е. пусть функция возвратит еще и ссылку на лист, если он найден.