I try with macro from http://www.excelforum.com/excel-general/387958-page-numbers-in-cells.html
Sub pagenumbers()
Dim MyR As Range
Dim PageNumber As Long
Set Mysheet = ActiveSheet
PageNumber = 1
Set MyR = Range(“A1”) ’ starting cell
MyR.Value = "Page " & PageNumber ’ first page number
Do While Not Intersect(MyR, ActiveSheet.UsedRange) Is Nothing
If MyR.EntireRow.PageBreak = xlPageBreakAutomatic Then
MyR.Value = "Page " & PageNumber ’ put page number in cell
PageNumber = PageNumber + 1
End If
Set MyR = MyR.Offset(1, 0) ’ move down
Loop
End Sub
it said Range is unknown dataype. Do you have any ideas to add page number in cell, because page number is in header. Thx