Use this line:

ActiveSheet.PageSetup.RightFooter = "Page &P of &N"

Hope this helps! If so, click "YES" below.
--
Cheers,
Ryan


"Ron5440" wrote:

I would like to add the page footer using code.
This is what it looks like using the add footer menu's - Page &[Page] of
&[Pages]
(Page1 of 10).
I have been trying many different possibilities with no luck and cannot find
an example of this same thing here.
Any help is appreciated.
Thanks,
Ron