sheets найти книгу!?

        For i = 1 To Workbooks("...").Sheets.Count
    If Workbooks(settings.bkMain).Sheets(i).Name = settings.shMain Then Workbooks("...").Sheets(i).Delete
        Next

Function SheetExists(SheetName As String) As Boolean
On Error Resume Next
SheetExists = Not Sheets(SheetName) Is Nothing
End Function
 
 
Function Sh_Exist(sName As String) As Boolean
    Dim wsSh As Worksheet
    On Error Resume Next
    Set wsSh = Sheets(sName)
    Sh_Exist = Not wsSh Is Nothing
End Function
 
Function SheetExists(SheetName As String) As Boolean
        Dim obj As Object
        On Error GoTo errorHandler:
        Set obj = sheets(SheetName)
        SheetExists = True
        Exit Function
errorHandler:
        SheetExists = False
End Function 
 
Function SheetExist(strSheetName As String) As Boolean
    Dim objSheet As Object
    
    On Error GoTo HandleError
    ThisWorkbook.Worksheets(strSheetName).Activate
    SheetExist = True
    Exit Function
    
HandleError:
    SheetExist = False
End Function
 
Function SheetExists(ShName As String) As Boolean
Dim Sh As Worksheet
    SheetExists = False
    For Each Sh In ActiveWorkbook.Sheets
        If Sh.Name Like ShName Then
            SheetExists = True
            Set Sh = Nothing
            Exit Function
        End If
    Next Sh
End Function

On Error Resume Next
Workbooks(settings.bkMain).Sheets(settings.shMain).Delete
Err.Clear
On Eror GoTo 0