ActiveSheet.PageSetup.LeftFooter = Range("A1").Value & " Page " & "&P"




"JMay" wrote in message
news:6uKnc.16193$nN6.7365@lakeread06...
I have 3 Worksheets which I have "Grouped"
WS01 - has 3 pages of printable stuff
WS02 - has 2 pages of ... stuff
Ws03 - has 1 page

Private Sub Workbook_BeforePrint(Cancel As Boolean)
CellInFooter
End Sub

Public Sub CellInFooter()
ActiveSheet.PageSetup.LeftFooter = Range("A1").Value & Page#
End Sub

Problem? Page# << Not working; Wish for it to print from 1
sequentially to end (page 6). Any help appreciated...