add multiple form button scroll bars at once from vba

I need the below macro to reference another sub change event to loop reference to the row number of the scroll bar, i and then adjust the cell Bi . So far I can only get 100 scroll bars to reference only B2

Sub Tester88()
    Dim ScrollBar As Object
    Dim rng As Range
    Dim i As Long
    Dim lastRow As Long

    lastRow = 99 'Modify as needed this will be the last possible row to add a button

    For i = 2 To lastRow Step 4
        Set rng = ActiveSheet.Cells(i, 18)  'Column 3, row i

        '## Create the button object and assign a variable to represent it
        Set ScrollBar = ActiveSheet.ScrollBars.Add(1, 1, 1, 1)

        '## use the btn variable to manipulate the button:
        With ScrollBar
            .Top = rng.Top
            .Left = rng.Left
            .width = rng.width
            .height = rng.RowHeight
            .Value = 1
            .Min = 1
            .Max = 100
            .SmallChange = 1
            .LargeChange = 10
            .LinkedCell = "$B$2"
            .Display3DShading = True

        End With
    Next
End Sub