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