Function EE_SheetExists(strSheetName As String, Optional wb As Workbook) As Boolean
    Dim wbk             As Workbook
 
'http://excelexperts.com/xla-routines-eeSheetExists    for updates on this function

    If IsMissing(wb) Or wb Is Nothing Then
        Set wbk = ActiveWorkbook
    Else
        Set wbk = wb
    End If
 
    On Error Resume Next
        EE_SheetExists = Not (wbk.Worksheets(strSheetName) Is Nothing)
    Err.Clear: On Error GoTo 0: On Error GoTo -1
End Function