узнать есть ли имя в книге

[Olegk]

ребят, вообщем сабж
как без цикла можно проверить есть ли в рабочей книге лист с определенным именем?

[Olegk]

все вот функцию надыбал

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

Private Function SheetExists(sname) As Boolean
Dim x As Object
On Error Resume Next
Set x = ActiveWorkbook.Sheets(sname)
If Err = 0 Then SheetExists = True _
    Else SheetExists = False
End Function