Spin Button - goes back to start and looping

[jmrdigital]

Hi all,

I've got a spin button going from 1 to 5 with a linked cell. Depending on the number, a pivot will change it's row labels.

To make it easy, if we are at 5 and someone clicks right, I want it to go back to 1 and if it's 1 and someone presses left, it goes to 5. Basically I want a continuous loop.

Can this be done?

Thanks,

John.

 

[MickG]

Perhaps:-

Private Sub SpinButton1_SpinDown()
With SpinButton1
    .Max = 6: .Min = 0
    .Value = IIf(.Value = 0, 5, .Value)
End With
End Sub
Private Sub SpinButton1_SpinUp()
With SpinButton1
    .Max = 6: .Min = 0
    .Value = IIf(.Value = 6, 1, .Value)
End With
End Sub