Can you place a value in the customer header?

I would like to put the day of the week on the header

Monday Tuesday etc.

Also any way to ask for input into the header?

Example

Name of: __________

Would like to have the ________ be entered if possible?

thanks

Tom

Hi Tom,
Try this,

Sub test()
Dim vDay As String
vDay = InputBox("Enter name", "Header Setup")
If vDay < "" Then
With ActiveSheet.PageSetup
.LeftHeader = vDay
.CenterHeader = ""'modify to suit
.RightHeader = ""'modifiy to suit
End With
End If
End Sub

Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/
(Excel Add-ins)

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

Thanks

The only question I have is where do I place this code?

Tom

"Shailesh Shah" wrote in message
...
Hi Tom,
Try this,

Sub test()
Dim vDay As String
vDay = InputBox("Enter name", "Header Setup")
If vDay < "" Then
With ActiveSheet.PageSetup
.LeftHeader = vDay
.CenterHeader = ""'modify to suit
.RightHeader = ""'modifiy to suit
End With
End If
End Sub

Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/
(Excel Add-ins)

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