Hi, anyone know how to write the codes to count the total no. of sheets within a workbook?

Please advise.

Thanks :D

Try the following code

ActiveWorkbook.Worksheets.Count

it will return you total numbers of worksheets in the active workbook.



It is always safe to assume, not that the old way is wrong, but that there may be a better way...
*************************
Rekha

you may want to count all sheets, only worksheets or only chart sheets...

Sub mycount()
mysheets = ActiveWorkbook.Sheets.Count
myworksheets = ActiveWorkbook.Worksheets.Count
mycharts = ActiveWorkbook.Charts.Count
MsgBox (mysheets & " sheets and " & myworksheets & " worksheets and " & mycharts & " Charts")

End Sub

cheers

Matt