Here's a series of short UDFs that will give you what you want. Paste
in a standard module (see http://www.rondebruin.nl/code.htm for
placement assistance).

Function GetLeftHeader()
GetLeftHeader = ActiveSheet.PageSetup.LeftHeader
End Function
Function GetCenterHeader()
GetCenterHeader = ActiveSheet.PageSetup.CenterHeader
End Function
Function GetRightHeader()
GetRightHeader = ActiveSheet.PageSetup.RightHeader
End Function
Function GetLeftFooter()
GetLeftFooter = ActiveSheet.PageSetup.LeftFooter
End Function
Function GetCenterFooter()
GetCenterFooter = ActiveSheet.PageSetup.CenterFooter
End Function
Function GetRightFooter()
GetRightFooter = ActiveSheet.PageSetup.RightFooter
End Function

To use: Just put the function name on the cell, prefixed by an equal
sign. For example, to get the left header text in cell A1:

=GetLeftHeader()

If you use this code in your PERSONAL.XLS workbook, you may have to
prefix the code like this:

=PERSONAL.XLS!GetLeftHeader()

HTH,
JP

On Mar 31, 11:37 am, texansgal <texans...@discussions.microsoft.com>
wrote: