Change Sheet w/ SpinButton?

[jonathann3891]

Is it possible to go to next/previous sheet with a spinbutton?

 

[Worf]

- Yes, it is possible. The example below uses a user form control.
- This particular code only works with Excel 2013 because it takes advantage of the new SHEET function.

' UserForm module
Private Sub SpinButton1_SpinDown()
Sheets(Evaluate("=sheet(""" & ActiveSheet.Name & """)") - 1).Activate
End Sub

Private Sub SpinButton1_SpinUp()
Sheets(Evaluate("=sheet(""" & ActiveSheet.Name & """)") + 1).Activate
End Sub
'*************************************************************
' standard module
Sub showuf3()
UserForm3.Show vbModeless
End Sub