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!