Hi All

I have a macro that allows me to enter spinners for a range of cells
(R7:R100)

The problem I have is I would like to format control them all in one
for each incremental cell value :

Current Value: 0
Maximum Value: 450
Incremental Change: 5
Cell Link Q7 through to Q100 respectively e.g. cell link R7 for Q7, R8
for Q8 etc



My Macro:

Sub insertspinners()
Dim mySPN As Spinner
Dim myCell As Range
With ActiveSheet
.Spinners.Delete
For Each myCell In ActiveSheet.Range("R7:R200").Cells
With myCell
Set mySPN = .Parent.Spinners.Add _
(Top:=.Top, Width:=.Width, _
Left:=.Left, Height:=.Height)

End With

Next myCell
End With
End Sub

Is this possible?
Thanks!