I don't know which SpinButtun you're using, but you need to use both the Change Event to note if the change is up or down and possibly the Exit Event to allow the User to change their mind before actually changing a cell. The reason is that if you use only the change event and the user make a mistake, the cell could have 1 added to it then 1 subtracted from it simply because the User first changed the button up, then changed it down.
'Module Level Code
Dim UpDown As Long
Spin Button rules. You need to write this code.
If change up then UpDown = + 1
Else if change down then UpDown = - 1
Sub SpinButton_Exit( ByVal Cancel As MSForms.ReturnBoolean)
If Weekday(Date, vbMonday) <> 1 then
MsgBox " THis only works on Mondays"
Exit Sub 'Prevent any changes if not Monday
End if
OneClick 'Call sub
End Sub
Sub OneClick()
Dim Cel As Range
Dim strTime as Long
strTime = Hour(Now()) 'grabs the current hour on a 24 hour rotation
'Redundent
If Weekday(Date, vbMonday) <> 1 then
MsgBox " THis only works on Mondays"
Exit Sub 'Prevent any changes if not Monday
End if
Select Case strTime
Case 9
Set Cel = Range("C3")
Case 10
Set Cel = Range("C4")
Case 11
Set Cel = Range("C5")
Case 12
Set Cel = Range("C6")
Case 13, 14
Set Cel = Range("C7")
Case 15
Set Cel = Range("C8")
Case 16
Set Cel = Range("C9")
Case 17
Set Cel = Range("C10")
Case 18
Set Cel = Range("C11")
Case Else
UpDown = 0 'Clean up
Exit Sub 'Prevent changes when not between 9am and 6 pm
End Select
Cel = Cel + UpDown
UpDown = 0 'Clean up
End Sub
Obviously, this is a rough draft, not tested in any way. Also, you may have to add sheet references depending of your actual setup.