Leading zero in header with vba

[wsaggia]

Hi friends.
First I would like to congratulate Mr Excel for his 20 years old, by providing rich tips.
Here I come with this question: I need to add Leading zero in the page number header in a sheet with almost 300 page. ex. 00001, 00010, 00100, as you can see I need write some zero in front, so the format of page like starting at “00002”.
Probably I need a vba to approach.
I appreciated the help.

Thanks,
William

 

[gruntingmonkey]

The below link has a bit of VBA which should do this.

https://excel.tips.net/T003055_Leading_Zeros_in_Page_Numbers.html

 

[wsaggia]

Hi gruntingmonkey,

Do you know, how to adjust the reference code (vba) given by the link above, so apply only the format to all page "0000#" without print.
The code reference apply the format as expected, but sent the print by each page.

Thanks,
William

 

[gruntingmonkey]

You will have to amend the part where it says

 .PrintOut From:=J, To:=J

You can edit it out if you dont want it to print.

 

[wsaggia]

Thanks, but this not resolve it!
Let me comment you.

With my limited programming skill, the first that I did, was to comment this line '.PrintOut. However the code in this way (see below), only write the last page number as a header "0000N" in all page, where N = represent last pagenumber.

With ActiveSheet

For J = 1 To iPages
.PageSetup.RightHeader = Format(J, sFormat)
'.PrintOut From:=J, To:=J
Next J
End With