Option Explicit
Private mblnNoChange As Boolean
Private Sub TextBox1_Change()
If Not mblnNoChange Then
mblnNoChange = True
ActiveSheet.Cells(1, 1).Value = TextBox1.Value
mblnNoChange = False
End If
End Sub
Private Sub TextBox2_Change()
If Not mblnNoChange Then
mblnNoChange = True
ActiveSheet.Cells(1, 1).Value = TextBox2.Value
mblnNoChange = False
End If
End Sub
Private Sub TextBox3_Change()
If Not mblnNoChange Then
mblnNoChange = True
ActiveSheet.Cells(1, 1).Value = TextBox3.Value
mblnNoChange = False
End If
End Sub