Range("A1") = Sheets("Sheet2").CenterHeader.Text doesnt work.

[HerryMarkowitz]

Hi,
Following code is okey.

Sub Macro1()
Sheets("Sheet2").Select
With ActiveSheet.PageSetup
    .PrintArea = "A1:A5"
    .LeftHeader = ""
    .CenterHeader = "EXAMPLE HEADER"
    .RightHeader = ""
End With
End Sub

Following code is not okey.

Sub Macro2()
Sheets("Sheet1").Select
Range("A1") = Sheets("Sheet2").CenterHeader.Text
End Sub

I want to take CenterHeader Text from Sheet2 to Sheet1.Range("A1") cell...

Regards