letters instead of numbers for pages

  • Thread starter Thread starter Cotton
  • Start date Start date
Give this a shot - in a std module

Sub UseLetters()
ActiveSheet.DisplayPageBreaks = True
Pgcount = ActiveSheet.HPageBreaks.Count + 1
CvNum = 64
For c = 1 To Pgcount
With ActiveSheet.PageSetup
.LeftFooter = "This is Page " & Chr(CvNum + c) & " of " & Chr(CvNum +
Pgcount)
End With
ActiveSheet.PrintPreview 'Or ActiveSheet.PrintOut
Next c
End Sub
 
Back
Top