Andy
Unsure what your needs are, but if you use a spin button from the Control
Toolbox you can have code behind the button.
Private Sub SpinButton1_SpinDown()
For Each cell In ActiveSheet.Range("A9:A18")
cell.Value = cell.Value - 2
Next
End Sub
Private Sub SpinButton1_SpinUp()
For Each cell In ActiveSheet.Range("A9:A18")
cell.Value = cell.Value + 2
Next
End Sub
For more options, see VBA Help on "spinbutton"
Gord Dibben Excel MVP