This macro should do it:

Sub shtcount()
MsgBox "# of sheets: " & Sheets.Count
End Sub

Regards
Rowan

"SS" wrote:

Is there a way to count the sheets in a workbook without doing it manually?

Cheers
Shona