Count number of pages

Marcia · #1 09-02-2022, 11:44 PM

Hi. I found the below code that counts the number of printed pages. I would like the code to:
1. Show the number of pages in A1 of all the sheets in the workbook, not through msg box. If the selected print area of sheet1 is 10 pages, A1 of sheet1 should show 10. If sheet2 is 5 pages, A1 of sheet2 should also show 5.
2. The number of pages in A1 should be automatically shown.
Thank you.

Code:

Sub PageCount()
  MsgBox (ActiveSheet.HPageBreaks.Count + 1) * _
     (ActiveSheet.VPageBreaks.Count + 1)
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Number Pages - not total pages, but actual pages.	Kiminator321	Word	8	04-29-2020 03:07 PM
Count number of days	walidriachi	Word VBA	5	07-23-2018 12:13 AM
count a number of cells based on the beginning of a order number	Kubi	Excel	2	08-06-2017 08:54 PM
Count Number of Pages in Document with Footnotes	d4okeefe	Word VBA	5	11-11-2013 11:02 AM
page count increases on its own -inserts white pages	itsema	Word	1	03-06-2013 12:48 PM