Excel page numbers into variables

Hi Roy

I have found a vba function that will calculate the page numbers. It has a flaw in that it will not recalculate correctly unless you go and edit the cell, but it does work quite well otherwise.

Function PageNumber() As Integer



   Dim VPC As Integer

   Dim HPC As Integer

   Dim VPB As VPageBreak

   Dim HPB As HPageBreak

   Dim NumPage As Integer



    'Decide which way to count thge pages

   If ActiveSheet.PageSetup.Order = xlDownThenOver Then

       HPC = ActiveSheet.HPageBreaks.Count + 1

       VPC = 1

   Else

       VPC = ActiveSheet.VPageBreaks.Count + 1

       HPC = 1

   End If



   NumPage = 1



   'Count the pages up and down

   For Each VPB In ActiveSheet.VPageBreaks

       If VPB.Location.Column > ActiveCell.Column Then Exit For

       NumPage = NumPage + HPC

   Next VPB



   'Count the pages across

   For Each HPB In ActiveSheet.HPageBreaks

       If HPB.Location.Row > ActiveCell.Row Then Exit For

       NumPage = NumPage + VPC

   Next HPB



   PageNumber = NumPage



End Function