I have an excel sheet with numerous columns/rows of data. I want to be able to adjust multiple active cells simultaneously using either a Button or Spin Button.

Adjusting a single cell is not trivial, but it is adjusting multiple active cells (range of which can/will change) that I have reached my dilemma.

Here is what I'm using to adjust a single active cell with a Spin Button:

Private Sub SpinButton1_SpinUp()
    With Selection()
        If VarType(.Value) = vbDouble Or _
           VarType(.Value) = vbEmpty Then
            .Value = .Value + 1
            AppActivate "Microsoft Excel"
        End If
    End With
End Sub

Private Sub SpinButton1_SpinDown()
    With Selection()
        If VarType(.Value) = vbDouble Or _
           VarType(.Value) = vbEmpty Then
            .Value = .Value - 1
            AppActivate "Microsoft Excel"
        End If
    End With
End Sub

Any suggestions? Is using multiple (user chosen) active cells even possible?

Thanks