hi
i don't think there is a function that will do that. there used to be a call
function but that was removed in xl2k (i think) due to security issues.
here is a vb solutlions that works
Sub countworksheets()
Range("A1").Value = ActiveWorkbook.Sheets.Count
End Sub