You cannot directly reference cell addresses in a header of footer, or insert
graphics for that matter. The following code snippet might get you pointed
in the general direction.

Dim strHeader As String

Worksheets(1).Activate

strHeader = Range("A1").Value

If Len(strHeader) = 0 Then
strHeader = "Put Optional Default Header Text Here"
End If

ActiveSheet.PageSetup.CenterHeader = strHeader

--
Kevin Backmann


"SHIPP" wrote:

How do I reference a cell in the customer header of a report so that if I
change the cell the report title also changes?
--
M. Shipp