Header Table Page Numbers

Here is a user defined function. Add it to a module in a macro-enabled workbook and call it like so:
=SheetNumber(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,256))

Function SheetNumber(SheetName As String) As String
Dim sh As Worksheet         ' Pointer to sheets
Dim SheetIndex As Long      ' Index postion of found sheet

Application.Volatile
'Initalize Variables
SheetIndex = 1

' Loop though sheets until you find one of this name
For Each sh In ActiveWorkbook.Sheets
    If sh.Name = SheetName Then
        Exit For
    End If
    SheetIndex = SheetIndex + 1
Next

' Return the string
SheetNumber = "Page " & SheetIndex & " of " & Sheets.Count

End Function