Counting Tabs in a Workbook

[RolanDoobies]

Is there a process for counting tabs in a workbook?
I have over 65 of them so I'm looking for a shortcut.

 

[Zack Barresse]

try ASAP utilities, it has a great index function, much like a TOC, which adds hyperlinks to each sheet. not exactly what your asking for, but it will work and it's a must have.

 

[MartinK]

Hello, try:

<pre><SPAN style="color:#00007F">Sub</SPAN> SheetCount()
MsgBox ThisWorkbook.Sheets.Count
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>

<SPAN style="color:#00007F">Function</SPAN> SheetCnt()
Application.Volatile
SheetCnt = ThisWorkbook.Sheets.Count
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Function</SPAN></PRE>

the latter can be used as =SheetCnt() in your worksheet

Martin

 

[DRJ]

Try this vba code. Press alt + F11 to open vbe and paste this code in a module and run it.

Sub TabCount()
MsgBox ("There are " & Sheets.Count & " Tabs in " & ActiveWorkbook.Name), vbInformation
End Sub

Hope this helps

Jacob