Solved: Copy RightHeader onto sheet

[Djblois]

I already know how to copy the contents of a cell into a header but now I want to be able to copy the header into a cell. Here is the code I tested:

Range("D7").Value = ActiveSheet.RightHeader.Value

[mdmackillop]

Even simpler.
Cells(1, 1) = ActiveSheet.PageSetup.RightHeader

[Djblois]

Thank you mdmackillop