I checkt the code, everything works when i check with F8. But the
Header is not changed...

dim wks as worksheet
for each wks in thisworkbook.worksheets
wks.PageSetup.RightHeader = "HeaderRight"
next wks

Thanks for your help!

It works for me in xl2003. Couple of notes...
A worksheet must have some data on it in order to preview it.
If "HeaderRight" is a variable, then remove the surrounding quote marks from it.
--
Jim Cone
Portland, Oregon USA
http://www.mediafire.com/PrimitiveSoftware
(remove unused styles or number formats - it's in the Free folder)




"Chrigu"
wrote in message
...
I check the code, everything works when i check with F8. But the
Header is not changed...

dim wks as worksheet
for each wks in thisworkbook.worksheets
wks.PageSetup.RightHeader = "HeaderRight"
next wks

Thanks for your help!