Dynamic Page Number @ Footer

[fabian]

I would like to create a macro that sets a user defined page number in
the footer - I want to be able to set the page number through an input
box. How can this be accomplished.

TIA,

<fabian>

 

[NC]

try:

Sub SetPageNumber()

myPage = InputBox("Enter page number")
ActiveSheet.PageSetup.RightFooter = "Page " & myPage

End Sub

Neal

 

[fabian]

Hello,
Thank you kindly. The Sub worked perfectly.

<Fabian>