how to give pagenumber in cell calc libre

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