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 ***