Como puedo crear una macro para insertar botones de opción automáticamente en 1 columna

H o l a:

Te anexo la macro para crear botones de opciones.

Sub CrearBotones()
'Por.Dante Amor
    Application.ScreenUpdating = False
    col = Array("D")        'Columnas botones
    vin = Array("F")        'Columnas vincular
    ini = 2                 'Fila inicial
    fin = 4                 'Fila final
    '
    For Each dobj In ActiveSheet.DrawingObjects
        If Left(dobj.Name, 6) = "Botón " Or Left(dobj.Name, 6) = "Option" Then
            dobj.Delete
        End If
    Next
    '
    For k = LBound(col) To UBound(col)
        For i = ini To fin
            xl = Cells(i, col(k)).Left
            xt = Cells(i, col(k)).Top
            xw = Cells(i, col(k)).Width
            xh = Cells(i, col(k)).Height
            '
            With ActiveSheet.OptionButtons.Add(xl, xt, xw, xh)
                .Caption = ""
                .Value = xlOff
                .LinkedCell = vin(k) & i
                .Display3DShading = False
            End With
        Next
    Next
    [A1].Select
    Application.ScreenUpdating = True
    MsgBox "Fin"
End Sub

A diferencia de las casillas, los botones de opción, todos quedan vinculados a la misma casilla, es decir, solamente puedes seleccionar una de todas las opciones.

' : )
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
' : )