Count worksheets, output the result

[ourmick]

Hi
I need to count the number of sheets in a workbook using

ActiveWorkbook.Sheets.Count

Then output the result of the count to a cell within the workbook

eg
Count the sheets
Output the number of sheets to sheet 1, cell A1

Thanks
ourmick

 

[VoG]

Try

Sheets("Sheet1").Range("A1").Value = ActiveWorkbook.Worksheets.Count

 

[Jubjab]

Sub a()

With ActiveWorkbook

Sheets(1).Range("a1").Value = .Sheets.Count

End With
End Sub

 

[ourmick]

Thanks guys
works a treat!