Как я могу связать счетчик с ячейкой

Question

Код выполняется, но не связывает счетчик с ячейкой.

    Dim i As Integer
    Dim Criteria As Integer

    Criteria = InputBox("How many Criteria would you like to use")
    For i = 1 To Criteria
        wsTable.Spinners.Add(Cells(1, i).Left, Cells(1, i).Top, 69.5, 20).Select
        With Selection
            .LinkedCell = Range(Cells(1, i), Cells(1, i))
        End With
    Next

Answer 1

Dim i As Integer
Dim Criteria As Integer

Criteria = InputBox("How many Criteria would you like to use")
For i = 1 To Criteria
    wsTable.Spinners.Add(Cells(1, i).Left, Cells(1, i).Top, 69.5, 20).Select
    With Selection
        .LinkedCell = Range(Cells(1, i), Cells(1, i)).Address
    End With
Next