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

"Cotton" wrote:

Is there a way to use letters instead of numbers for page numbering?