I got this code
Private Sub Label1_Click()
Label1.Caption = Worksheets("Ark1").Range("B1")
End Sub
Private Sub Label2_Click()
Label2.Caption = Worksheets("Ark1").Range("B2")
End Sub
Private Sub TextBox1_Change()
Worksheets("Ark1").Range("B1").Value = TextBox1.Value
End Sub
Private...