Private Sub SpinButton1_GotFocus()
Selection.Select
End Sub
Private Sub SpinButton1_SpinDown()
If Sheets(1).Range("D7").Value > 1 Then
Sheets(1).Range("D7").Value = Sheets(1).Range("D7").Value - 1
End If
End Sub
Private Sub SpinButton1_SpinUp()
If Sheets(1).Range("D7").Value < 20 Then
Sheets(1).Range("D7").Value = Sheets(1).Range("D7").Value + 1
End If
End Sub