Thanks for your help. I kept on getting an error so I modified as sown
below:

Private Sub SpinButton1_Change()
TextBox1.Text = CStr(SpinButton1.Value)
End Sub
Private Sub SpinButton1_Enter()
SpinButton1.Value = Val(TextBox1.Text)
End Sub

Regards
Martin

keepITcool wrote:
Private Sub SpinButton1_Change()
TextBox1.Value = SpinButton1.Value
End Sub

Private Sub SpinButton1_Enter()
SpinButton1.Value = Val(TextBox1.Text)
End Sub


--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


wrote :

I have a text box and spin button on a user form, I would like that
the user could enter a number in the text box and then if they wish to
change use the spin button.

How would I have the spin button start with the entered number rather
than with 1.

Any help woulf be appricated.

Kind Regards
Martin