Returning page-count to a cell

  • Thread starter Thread starter NAHolmes
  • Start date Start date
N

NAHolmes

Is it possible to return the total pages in a workbook? I know the formula
for sheets (or tabs), but at least one sheet, when printed has 2 or more
pages.

Thanks in advance.
 
As far as I know there is not a built in function for this.

There are some methods available using VBA.

This displays the count.

Sub printcounter()

wscount = ActiveWorkbook.Worksheets.Count
For a = 1 To wscount
Sheets(a).Activate
PAGECOUNT = Application.ExecuteExcel4Macro("Get.Document(50)") + PAGECOUNT

Next a
MsgBox (PAGECOUNT & " Pages to Print")

End Sub
 
Thanks Paul.

The sub did display the total pages, but it also moved all the text boxes in
the workbook.

Also, is it possible to return the number to a cell?

Thanks again for your help.
 
Back
Top