Use the Initialise event of the form :-

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

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