' 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