I have built an excel spreadsheet in which a groups of four option buttons are populated down the spreadsheet. This has been working perfectly for the past month or so however I have all of a sudden been getting the following error message: "Select method of OptionButton class failed". The strange thing is that it populates the first 24 buttons and then on the 25th it gives this error for some reason.

I have debugged the code and found this occurs when I do the 'optbtn.select' on the 25th option button. The oprion button is visible on the screen however I am unable to use the select method even after it has been created.
My code is below and I would really appreciate any help.

Thank you

Jarred

Set buttonRange = xlSheet.Range("A10:A" & noOfLoops + 9)

For Each buttonCell In buttonRange
With buttonCell.Resize(1, 4)
Set grpBox = xlSheet.GroupBoxes.Add _
(top:=.top, left:=.left, Height:=.Height, _
Width:=.Width)
grpBox.Caption = rowNo
grpBox.Visible = False

End With


For createLooper = 0 To 3

With buttonCell.Offset(0, createLooper)
Set optbtn = xlSheet.OptionButtons.Add _
(top:=.top, left:=.left + ((buttonCell.Offset(0, createLooper + 1).left - .left) / 4), Height:=.Height, _
Width:=.Width / 2)
If xlSheet.Range("F" & rowNo).Formula = "B" And createLooper = 1 Or xlSheet.Range("F" & rowNo).Formula = "S" And createLooper = 0 Then
optbtn.Caption = ""
optbtn.value = 1
Else
optbtn.Caption = ""
End If
End With
optbtn.Display3DShading = True
optbtn.Select

If createLooper = 0 Then
Selection.OnAction = "'PortfolioBid_Click " & rowNo & "'"
ElseIf createLooper = 1 Then
Selection.OnAction = "'PortfolioAsk_Click " & rowNo & "'"
ElseIf createLooper = 2 Then
Selection.OnAction = "'PortfolioLast_Click " & rowNo & "'"
ElseIf createLooper = 3 Then
Selection.OnAction = "'PortfolioManual_Click " & rowNo & "'"
End If
Next


rowNo = rowNo + 1
Next