Michael, use Sheets.Count something like this
Sub sheetcount()
MsgBox "There Are " & Sheets.Count & " Sheet(s) in this workbook"
End Sub
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003
wrote in message
oups.com...
Gentlemen and ladies,
Does anyone know of a way to obtain in VB the number of sheets that
exist in a given workbook?