I knew it something like that.
Thanks

"Claus Busch" wrote in message ...

Hi,

Am Mon, 11 Nov 2013 17:38:51 -0600 schrieb JCO:

'Add proper text as header
For i = 1 To 3
With Worksheets(i)
With ActiveSheet.PageSetup
.LeftHeader = sReportHeader 'left header as text
.RightHeader = sCurDate 'right header as text
End With
End With
Next

you have to reference the PageSetup to the right sheets. Try:

For i = 1 To 3
With Worksheets(i)
With .PageSetup
.LeftHeader = sReportHeader 'left header as text
.RightHeader = sCurDate 'right header as text
End With
End With
Next


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2