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
