D
Danny
Please help me with a command to count the number of
sheets in a workbook. Thanks!
sheets in a workbook. Thanks!
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
J
Jason Morin
Try this macro:
Sub Count_WS()
Dim a As Integer
a = ActiveWorkbook.Worksheets.Count
MsgBox a & " worksheets"
End Sub
Sub Count_WS()
Dim a As Integer
a = ActiveWorkbook.Worksheets.Count
MsgBox a & " worksheets"
End Sub
K
Ken Wright
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
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
D
Danny
Jason,
The macro works perfectly! Thanks a lot!
Danny
The macro works perfectly! Thanks a lot!
Danny
D
Danny
Ken,
This macro helps me a lot too! I was "manually" counting
my chart sheets. Thanks a lot!
Danny
This macro helps me a lot too! I was "manually" counting
my chart sheets. Thanks a lot!
Danny
with a slight tweak on Jason's code:------Original Message-----
And just in case you want to count chart sheets as well,