Counting sheets in a workbook.

  • Thread starter Thread starter Danny
  • Start date Start date
D

Danny

Please help me with a command to count the number of
sheets in a workbook. Thanks!
 
Try this macro:

Sub Count_WS()
Dim a As Integer
a = ActiveWorkbook.Worksheets.Count
MsgBox a & " worksheets"
End Sub
 
And just in case you want to count chart sheets as well, with a slight tweak on Jason's code:-

Sub Count_WS()

Dim a As Integer
a = ActiveWorkbook.Worksheets.Count
b = ActiveWorkbook.Charts.Count
MsgBox a & " Worksheets, " & b & " Chart Sheets"

End Sub

or if you wanted it all lumped together, including any chart sheets

Sub Count_WS()
Dim a As Integer
a = ActiveWorkbook.Sheets.Count
MsgBox a & " Sheets"

End Sub
 
Ken,
This macro helps me a lot too! I was "manually" counting
my chart sheets. Thanks a lot!
Danny
-----Original Message-----
And just in case you want to count chart sheets as well,
Click to expand...
with a slight tweak on Jason's code:-
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel Formula - Count Dates from another Sheet 8
COUNT rows on external sheet if between date range 3
Cross referencing two workbooks? 3
Conditioanl Sum Help with Multiple Sheets in a Workbook 4
COUNTIF FUNCTION 6
SUMPRODUCT has mismatched range sizes error when sheet opened inGoogle Excel. 1
Count the columns from one sheet and paste it in another sheet 0
Standard Deviation from one sheet to another 1

Back
Top