data from userform to a cell on an execel sheet

I'm looking to enter data from a userform to a specific cell on an Excel
spreadsheet, then print a form from this data.

Private Sub CommandButton1_Click()
With Worksheets("Sheet1")
.Range("A1").Value = Userform1.TextBox1.Text
.Printout
End With
UnLoad Userform1
End Sub


--
Regards,
Tom Ogilvy

"David Marshall" <David [email protected]> wrote in message
news:[email protected]...
> I'm looking to enter data from a userform to a specific cell on an Excel
> spreadsheet, then print a form from this data.