Добавлено: 31 июл 2004, 16:53
О! Лучше даже переписать так:
Тогда удобно будет удалять лист:
Т.е. пусть функция возвратит еще и ссылку на лист, если он найден.
Код: Выделить всё
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