Looking to count sheets in a workbook, subtracting 1 from the total in VBA.