Private Sub Userform_Activate()
Me.TextBox1.Text = Worksheets("Sheet1").Range("A2").Value
End Sub

Private Sub TextBox1_AfterUpdate
Worksheets("Sheet1").Range("A2").Value = Me.TextBox1.Text
End Sub

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Anthony" wrote in message
...
In Cell A2 of my data worksheet I want this value to be placed in a
userform
(frmEdit) so that it can be edited, once changed the user 'submits' the
data
and it is placed into cell A2 replacing what was there before....

any ideas how this can be done??
THanks in advance