Help me with macros

[All the damn names are ta]

I have made a user form with a text box and a button, i want a macro assigned to the button which takes the text from the text box and puts it in the header and also puts the date in the footer

 

[All the damn names are ta]

Private Sub CommandButton1_Click()
With ActiveSheet.PageSetup
.CenterHeader = TextBox1.Value
.CenterFooter = Date
End With
Unload Me
' Me is just another way of saying UserForm
End Sub

This is the code i am now using

 

[Jack in the UK]

JPG

My ideas perfect in idea but dont work thus i asked the question i was not sure if can be doen with a twist - thanks
Darn!!