Function WorksheetExtant2(WorksheetName As String, Optional wwb As Workbook) As Boolean
    If wwb Is Nothing Then Set wwb = ThisWorkbook
    WorksheetExtant2 = False
    With wwb
        On Error Resume Next
        Dim Sht As Worksheet
        For Each Sht In wwb.Worksheets
            If Sht.Name = WorksheetName Then
                WorksheetExtant2 = True
                Exit Function
            End If
        Next Sht
    End With
    WorksheetExtant2 = False
End Function