Macro que inserte varios optionbuttons

[abrahamvj]

Pues, simplemente tu FOR estaba mal planteado:

Sub NoFunciona()

Dim ranRondaApuestasCuerpoGris As Range
Dim i As Integer

Set ranRondaApuestasCuerpoGris = Range("A1:B8")

For i = 0 To 3

ActiveSheet.OLEObjects.Add(ClassType:="Forms.Optio nButton.1", _
Left:=ranRondaApuestasCuerpoGris.Left, Top:=ranRondaApuestasCuerpoGris.Top + _
ranRondaApuestasCuerpoGris.Height * i / 4, _
Width:=ranRondaApuestasCuerpoGris.Width, _
Height:=ranRondaApuestasCuerpoGris.Height * 0.25).Select

Next i

End Sub

Abraham