Basically this was a problem solved long ago. event  disabling in a userform
module does not work. So we have to manually create an event type variable to
control flow in the userform  initialize method.

Heres how you go about doing it

declare a variable global as boolean

Dim userEvent as boolean

Private Sub UserForm_Initialize()
userEvent = False
End Sub

Private Sub TextBox1_Change()

If userEvent = False Then
.........Your Code here......
End if
End Sub


Your second question also came at a good time as I had the same problem
yesterday. Managed to solve it.

TextBox1.Text = sheets(4).Range("Cell_Name").Cells(1, 1).Value