I would like to make a cell in a worksheet the header on all the worksheets
in the workbook. Is this possible and if so how?

Thanks,
Cheryl

I've done this with a Workbook_Before print event

I'll copy one of mine in and you can modify it as necessary. Note that I
used some named ranges that were defined within the workbook.

Application.ScreenUpdating = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "Company Proprietary"

.RightHeader = ""
.LeftFooter = Range("ToolName").Text & Chr(10) & _
"Issue Date: " & Range("Issue_Date").Value & Chr(10) & _
"Issue Number: " & Range("IssueNumber").Value

.CenterFooter = "Company Proprietary" '& Chr(10) & "&P of &N"
.RightFooter = ""
.CenterHorizontally = True
.CenterVertically = False
End With
Application.ScreenUpdating = True
End Sub

Press CTRL F11 and add this to the "ThisWorkbook" Excel Object.

"teddybr218" wrote:

I would like to make a cell in a worksheet the header on all the worksheets
in the workbook. Is this possible and if so how?

Thanks,
Cheryl

CTRL+F11 or ALT+F11 ?
best wishes
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"Barb Reinhardt" wrote in message
...
I've done this with a Workbook_Before print event

I'll copy one of mine in and you can modify it as necessary. Note that I
used some named ranges that were defined within the workbook.

Application.ScreenUpdating = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "Company Proprietary"

.RightHeader = ""
.LeftFooter = Range("ToolName").Text & Chr(10) & _
"Issue Date: " & Range("Issue_Date").Value & Chr(10) & _
"Issue Number: " & Range("IssueNumber").Value

.CenterFooter = "Company Proprietary" '& Chr(10) & "&P of &N"
.RightFooter = ""
.CenterHorizontally = True
.CenterVertically = False
End With
Application.ScreenUpdating = True
End Sub

Press CTRL F11 and add this to the "ThisWorkbook" Excel Object.

"teddybr218" wrote:

I would like to make a cell in a worksheet the header on all the
worksheets
in the workbook. Is this possible and if so how?

Thanks,
Cheryl

Oops, ALT+F11. I do it all the time and my fingers know where to go. Thanks
for the save.

"Bernard Liengme" wrote:

CTRL+F11 or ALT+F11 ?
best wishes
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"Barb Reinhardt" wrote in message
...
I've done this with a Workbook_Before print event

I'll copy one of mine in and you can modify it as necessary. Note that I
used some named ranges that were defined within the workbook.

Application.ScreenUpdating = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "Company Proprietary"

.RightHeader = ""
.LeftFooter = Range("ToolName").Text & Chr(10) & _
"Issue Date: " & Range("Issue_Date").Value & Chr(10) & _
"Issue Number: " & Range("IssueNumber").Value

.CenterFooter = "Company Proprietary" '& Chr(10) & "&P of &N"
.RightFooter = ""
.CenterHorizontally = True
.CenterVertically = False
End With
Application.ScreenUpdating = True
End Sub

Press CTRL F11 and add this to the "ThisWorkbook" Excel Object.

"teddybr218" wrote:

I would like to make a cell in a worksheet the header on all the
worksheets
in the workbook. Is this possible and if so how?

Thanks,
Cheryl