Use the Initialise event of the form :-

Private Sub UserForm_Initialize()
TextBox1.Text = ActiveSheet.Range("A1").Value
End Sub


---
Message posted from http://www.ExcelForum.com/