Need help with spin buttons.

[X82]

Hi there.
I have a worksheet with multiple columns. Column B is where I want 250 spin buttons to be, and show its results in column C. I did this with a macro I found:

Sub add_spinner()
With ActiveSheet
For i = 4 To 235
   Set cb = .Shapes.AddFormControl(xlSpinner, 150, i * 30, 120, 30)
   cb.ControlFormat.LinkedCell = "E" & i
   Next
End With
End Sub

When I run said macro, I have to select all the spin buttons and drag them to column B, since the macro makes them appear towards the left of the sheet.
I was hoping that someone could tell me if there was a way of making these 250 spin buttons appear where I want, like column G then J etc. At the moment I create 250, select one, ctrl+A then drag them. But of course if I add another 250 more and go ctrl+A, all my spin buttons are selected. Only option I found was to ctrl+right click on each of my new spin buttons, but with 250 and more columns to go, I don't think so.
Any ideas?

 

[VoG]

Try

Sub add_spinner()
With ActiveSheet
    For i = 4 To 235
       Set cb = .Shapes.AddFormControl(xlSpinner, 150, i * 30, 120, 30)
       cb.ControlFormat.LinkedCell = "E" & i
        With .Range("B" & i)
            cb.Top = .Top
            cb.Left = .Left
        End With
    Next
End With
End Sub

 

[MrKowz]

Edit - VoG's way was much better

 

[X82]

Many thanks. I'll play with that. What about the vertical position?

 

[X82]

Oops, didnt read the other post from VoG!
Thanks so much, works perfectly!