Private Sub CommandButton1_Click() TextBox1.Text = Sheet1.Range("A1").Value TextBox2.Text = Sheet1.Range("A1").Text End Sub