Private Sub UserForm_Initialize() With SpinButton1 .Min = 1 .Max = 100 Label1.Caption = "Specify a value between " & .Min & " and " & .Max & ":" ' Initialize Spinner .Value = 1 ' Initialize TextBox TextBox1.Text = .Value End With End Sub