Text from within a sheet into right header

[Darin Kramer]

Howdie,

How do I put text from say cell c10 into the right header by using
VB...?

Thanks

D


*** Sent via Developersdex http://www.developersdex.com ***

 

[Tom Ogilvy]

Activesheet.PageSetup.RightHeader = Activesheet.Range("C10").Text

 

[Gary''s Student]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightHeader = Cells(10, 3).Value
End Sub

Paste this into ThisWorkbook code, not a standard module

 

[Jean-Yves]

Hi

according Excel VBA help by simply searching Header
RightHeader Property
See Also Applies To Example Specifics
Returns or sets the right part of the header. Read/write String.

Remarks
Special format codes can be used in the header text.

Example
This example prints the filename in the upper-right corner of every page.

Worksheets("Sheet1").PageSetup.RightHeader = "&F"So
Worksheets("Sheet1").PageSetup.RightHeader =
Worksheets("Sheet1").Range("C10")Regards"Darin Kramer"