It's not really that simple or quick...
Open Excel and create a new workbook. Open the VB Editor using <Alt> F11. Double-
click on ThisWorkbook to bring up a code window on the right. Paste in the
Option Explicit Sub CountSheets() Dim iSheetCount As Integer iSheetCount = ActiveWorkbook.Worksheets.Count MsgBox iSheetCount End Sub
Switch back to Excel and run the subroutine by using <Alt> F8 to bring up the
macro list and double-clicking on CountSheets. A dialog box will display the
number of worksheets.
(see Excel Tutorials)