Private Sub TextBox1_Change()Sheet1.Cells(1, 1).Value = TextBox2.ValueSheet2.Cells(1, 1).Value = TextBox2.ValueEnd Sub
