macro question

[All the damn names are ta]

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

I have this macro on the command button of my form, but it doesn't work. Can someone help?

 

[Juan Pablo González]

Duplicate:

http://www.mrexcel.com/board/viewtopic.php?topic=27160&forum=2&6