Private Sub UserForm_Initialize()
UserForm1.Label1.Caption = Range("A7")
UserForm1.TextBox1.Value = Range("A7")
UserForm1.Repaint
End Sub
Private Sub CommandButton1_Click()
i = Range("A7").Value
i = i + 1
Range("A7").Value = i
End Sub
Private Sub Label1_Click()
UserForm1.Label2.Caption = Range("A7")
UserForm1.Repaint
End Sub
Private Sub TextBox1_Change()
UserForm1.TextBox1.Value = Range("A7")
UserForm1.Repaint
End Sub
Private Sub Label1_Change()
UserForm1.Label2.Caption = Range("A7")
UserForm1.Repaint
End Sub