You're welcome. Glad it works OK now

--
Cheers
Nigel



"dilettante" wrote in message
...
Nigel,
now I have it: it works perfectly.
Thank you!
Regards
--
dilettante


"dilettante" wrote:

Hello,
Thank you for helping.
The first lkisting works well.
The second one (which is more useful then the first) have a Run Time
Error 9
coming out when the procedure reaches the expression
".PageSetup.LeftHeader = Sheets("Sheet1").Range("A1").Text ".
I will try to understand the reason why.
Best regards

--
dilettante


"dilettante" wrote:

Hello
I copied the basic listing and tryed to have it working for all the
headers
but it works only for the first one. What do I wrong?
Thank you for helping

Sub InsertCellsDataInHeader()

With ActiveSheet
.PageSetup.LeftHeader = .Range("A1").Text
.PageSetup.CenterHeader = .Range("A2").Text
.PageSetup.RightHeader = .Range("A3").Text
End With

End Sub

--
dilettante