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.

So you already have a VBA program that calculates the number of pages, and displays it using MsgBox, right? If you want your program to put that number in a cell of a worksheet, the code looks something like this:

Code:

set ows = ActiveSheet
npg = (ows.HPageBreaks.Count + 1) * (ows.VPageBreaks.Count + 1)
set ocs = ows.Cells
ocs(1, 1).Value = npg 'row 1, col 1

There are other ways to code it; this is the way I probably would.

Thank you Bob. I inserted your code to the first and the total page count appears in A1, but the macro says there are 3 pages when in fact the print area has 5 pages.

I didn't check the formula you used; if it says 3 and it should be 5, seems to me there's something wrong with the calculation. All I was really trying to do is show you how to put that value in a cell rather than displaying it in a MsgBox.

But now I'm interested. I can see where counting the vertical and horizontal page breaks and multiplying them might give you more pages than the correct count; it isn't clear to me how it could be fewer. I don't fool with page breaks, myself, and have never looked at those properties. If I think of something in the next few days I'll probably come back and say more. But don't count on it; I think it's gotta be something wrong with the code you found and used.

I'm assuming, by the way, that when you used the MsgBox method, that too gave you the wrong count. My calculation is the same as yours, just phrased differently.

You're right Bob, the msg box gave the same wrong answer, 3.