If wb Is Nothing Then Set wb = ActiveWorkbookOn Error Resume NextSheetExists = CBool(Not wb.Worksheets(Sh) Is Nothing)On Error GoTo 0