Private Sub UserForm_Initialize() txtEdit.Text = Range("A1").Value End Sub
Private Sub txtEdit_Change() Range("A1").Value = txtEdit.Text End Sub