I think what I'm trying to do is pretty basic, but I have no idea what I am doing when writing VBA script. I have a spreadsheet and am trying to place a spin bar in every other column and have it link to the column before it. I've got the code for that figured out. 

Sub add_spinner()
With ActiveSheet
       For i = 4 To 180
       Set cb = .Shapes.AddFormControl(xlSpinner, 100, i * 30, 10, 30)
       cb.ControlFormat.LinkedCell = "D" & i
        With .Range("E" & i)
            cb.Top = .Top
            cb.Left = .Left
        End With
    Next
End With
End Sub
This is working perfectly, but only for columns D and E. I have to do it for 300 pairs of columns and don't really want to have to write new code for each one of them. In the end I need the spin bar in G to link to F, spin bar in I to link to H, and so on all the way to WF). From what I understand, I'll need to do a For...next loop, and because I already have one, it will need to be nested and then also offset to work. But, I have no idea how to go about sticking all that in there to make any sense to the computer.

It would also be great if I could get the spin bar centered in the cell rather than in the top left, but that is a minor concern compared to the rest.

I am using Excel 2010.