How can I include a cell's value in a worksheet header?
 

I am running Office XP pro. I want to display the value of a cell in the
header when I print a worksheet.

How can I include a cell's value in a worksheet header?
 

BillSea:

add this code to Thisworkbook Module

'ThisWorkbook
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = Range("A1")
'.CenterHeader = ""
'.RightHeader = ""
End With
End Sub


--
天行å�¥ï¼Œå�›å*�以自強ä¸�æ�¯
地勢å�¤ï¼Œå�›å*�以厚德載物

http://www.vba.com.tw/plog/


"BillSea" wrote:

I am running Office XP pro. I want to display the value of a cell in the
header when I print a worksheet.