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 wrote in message
...
I'm looking to enter data from a userform to a specific cell on an Excel
spreadsheet, then print a form from this data.