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