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 Marshall@discussions.microsoft.com> wrote in message
news:AB0FB285-E6DC-4470-93B3-64DF2C5799B9@microsoft.com...
> I'm looking to enter data from a userform to a specific cell on an Excel
> spreadsheet, then print a form from this data.