VBA page number +1

[csilabgirl]

Excel 2010

I have the code below which works great for adding "page 1 of 2" to the footer. However, what I want it to actaully do is add 1 page to the total page count. Meaning if there are 2 pages total I want the first page to say Page 1 of 3 (instead of 1 of 2) and the second page to save Page 2 of 3 (instead of 2 of 2). I have tried adding a "+1" after the N, but all that does is literally add a number 1 as text, so my footer now says page 1 of 21. Can anyone help with what I am trying to do? Thank you for your help

With ActiveSheet.PageSetup
.LeftFooter = "page "& "&P of &N"
End With

 

[mcorriga]

try this

s = ActiveSheet.PageSetup.Pages.Count + 1
ActiveSheet.PageSetup.LeftFooter = "page " & "&P of " & s

 

[csilabgirl]

try this

s = ActiveSheet.PageSetup.Pages.Count + 1
ActiveSheet.PageSetup.LeftFooter = "page " & "&P of " & s

mcorriga, that works great thank you