ActiveSheet.PageSetup.RightFooter = "&P" not working

[drom]

Hi and thanks in advance!

I am using;

With ActiveSheet.PageSetup
        .LeftHeader = "":           .LeftFooter = ""
        .CenterHeader = "":         .CenterFooter = ""
        .RightHeader = "":          .RightFooter = ""
        Application.PrintCommunication = False        
                               .RightFooter = "&P"
        Application.PrintCommunication = True
   End With

But I do not get the Page number on the right footer
I am actually getting :
ActiveSheet.PageSetup.CenterFooter = "&Z&P"
so the route and page within the CenterFooter
So I am actually lost

 

[yky]

The code works for me. I got the page number on the right footer.