Private Sub SpinButton1_SpinDown()
SpinButton1.Value = IIf(SpinButton1.Value - 0 < 1, 1, SpinButton1.Value - 0)
k = SpinButton1.Value
If k < SpinButton1.Min Then Exit Sub
Run "Macro" & k
End Sub
Private Sub SpinButton1_SpinLeft()
SpinButton1.Value = IIf(SpinButton1.Value - 1 < 1, 1, SpinButton1.Value - 1)
k = SpinButton1.Value
If k < SpinButton1.Min Then Exit Sub
Run "Macro" & k
End Sub
Private Sub SpinButton1_SpinRight()
SpinButton1.Value = IIf(SpinButton1.Value + 1 > SpinButton1.Max, SpinButton1.Max, SpinButton1.Value + 1)
k = SpinButton1.Value
If k > SpinButton1.Max Then Exit Sub
Run "Macro" & k
End Sub