Private Function WorksheetExists(wb As Workbook, sName As String) _
As Boolean
Dim s As String
On Error GoTo WorksheetExistsErr
s = wb.Worksheets(sName).Name
WorksheetExists = True
Exit Function
WorksheetExistsErr:
WorksheetExists = False
End Function