Private Sub TextBox1_Change()
ThisWorkbook.ActiveSheet.Range("J1") = TextBox1.Text
End Sub