Empty spinner button

[cliffmid]

I see lots on cells cleared in spinner button code, but not how to clear the cached spinner button itself. I have a spinner linked to A1. I run A1 up to five. My code to clear A1 works perfectly. But when I come back to the sheet (with A1 cleared) and use the spinner again, it--the spin button--remembers the five and my next entry is six. I want both A1 and the cached memory in the button itself cleared. It has me stumped.

 

[maabadi]

Please Upload Code Here

 

[mikerickson]

You can't clear a spinner, it always has to have a value. You can reset it to the minimum value or some defined default starting point, but it always has a value.

 

[JGordon11]

This will reset Spinner 1 to start from zero (first up click will go to 1 if increment is 1). If your spinner is not named Spinner 1 then change that part of the code.

ActiveSheet.Shapes("Spinner 1").ControlFormat.Value = 0
[a1].ClearContents

 

[cliffmid]

Private Sub SpinButton1_Change()

'sets target cell. target and spin button must be unlocked in protected shee

Range("p20").Value = SpinButton1.Value

Sub ClearOrders()
'
' ClearOrders Macro
' Clears colored boxes for next week's meeting
'
' Keyboard Shortcut: Ctrl+t

Dim Result As Integer
Result = MsgBox("Clears Yellow and Green entries, still want to continue?", vbQuestion + vbYesNo)
If Result = vbYes Then


Sheets("Lunch").Select

'Application.Goto Reference:="orders"

Range("c2:e35,g2:i35,k2:m35, p20").Select
Selection.ClearContents

Else

MsgBox "Press OK to Exit"
End If



Range("b2").Select


End Sub

Here's is the spinner code. The ControlFormat.Value =0, [all].clearContents would not run. I may have it in the wrong sub. I have it in the SpinButton1 code above. The second sub clears the other fields. Thanks in advance
The actual sheet is:

 

[mikerickson]

You are using an ActiveX spin button, the .ControlFormat code is for one from the Forms menu.
For an ActiveX spin button this code would set it to its minimum

With ActiveSheet.OLEObjects("SpinButton1").Object
    .Value = .Min
End With

 

[cliffmid]

With ActiveSheet.OLEObjects("SpinButton1").Object .Value = .Min End With

Amazing what the right code does. Thank you.