Put it in a module and call it with =NumShts()

Function NumShts()
NumShts = ActiveWorkbook.Sheets.Count
End Function

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 97/00/02/03

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------



"gjmink" wrote in message
...
This worked great the last time I had a question, so I'd thought we to would
try again. Is there a function available that would count the number of tabs
in a spreadsheet that has many many tabs. Thanks for your help!!
--
Have a great day and a better tomorrow!


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.802 / Virus Database: 545 - Release Date: 26/11/2004