Page x of y

[Guest]

Hi,

I have a macro with the following patch of code (except for the stuff in the
bracket).
However, I want the code to insert page x of y into the right footer. I
figure it will go where the bracket is, but I am not certain how to program
this. Your help is much appreciated.

If Range("c_pageswitch") = True Then
Worksheets(ws_name).PageSetup.RightFooter = [x of y]
Else
Worksheets(ws_name).PageSetup.RightFooter = ""
End If

 

[Ardus Petus]

Worksheets(ws_name).PageSetup.RightFooter = "&P of &N"

HTH