Скажите макросу, чтобы проверить, существует ли объект, и если да, сделайте A., но если нет, тогда сделайте B.

Проект кода:

public sub createoptionbutton(xname,a,b,c,d) dim obj as object xname=trim(xname) for each obj in activesheet.optionbuttons if obj.name=xname then exit sub next activesheet.optionbuttons.add(a,b,c,d).select selection.name=xname end sub 

Отредактируйте его, как вам нужно.

PS. Вам не нужно выбирать какую-либо ячейку перед созданием опции - это не имеет значения. Просто укажите конкретный лист вместо ActiveSheet. И я бы рекомендовал установить свойство GroupBox дополнительно.

PPS. По запросу Rajesh S - функция, которая проверяет только существование опции:

public function optionbuttonexists(xname) as boolean dim obj as object xname=trim(xname) for each obj in activesheet.optionbuttons if obj.name=xname then  optionbuttonexists = true exit sub end if next end function  

... и обратная функция

public function optionbuttonabsent(xname) as boolean dim obj as object xname=trim(xname) for each obj in activesheet.optionbuttons if obj.name=xname then exit sub next optionbuttonabsent=true end function  

Последняя функция позволяет решить авторскую задачу как

if optionbuttonabsent(" Select2Button ") then ActiveSheet.OptionButtons.Add(225.75, 540, 79.5, 21.75).Select Selection.Name = " Select2Button " end if 

Я хотел бы предложить вам решение в двух частях.

Первая часть поможет вам создать Option Buttonв ячейках.

А вторая часть поможет вам определить, на что Option Buttonнажали, чтобы выполнить дальнейшие действия.

Часть 1:

Этот VBA (Macro) поможет вам создать Two Option buttonsв Cell C1& D1with Group / Frame.

Sub AddOptionButtons() Dim btn1 As OptionButton Dim btn2 As OptionButton Dim btn3 As OptionButton Dim grbox As GroupBox Dim t As Range Dim s As Range Dim i As Integer  ActiveSheet.OptionButtons.Delete ActiveSheet.GroupBoxes.Delete  For i = 1 To 1 Step 1 Set t = ActiveSheet.Range(Cells(i, 3), Cells(i, 3)) Set s = ActiveSheet.Range(Cells(i, 4), Cells(i, 4))  Set btn1 = ActiveSheet.OptionButtons.Add(t.Left, t.Top, t.Width, t.Height) Set btn2 = ActiveSheet.OptionButtons.Add(s.Left, s.Top, s.Width, s.Height) Set grbox = ActiveSheet.GroupBoxes.Add(t.Left, t.Top, t.Width + 50, t.Height)  With btn1 .Caption = "" .Display3DShading = True .LinkedCell = "E" & i End With  With btn2 .Caption = "" .Display3DShading = True End With  With grbox .Caption = "My Group" .Visible = True End With Next i  End Sub 

Как это устроено:

1. Скопируйте и вставьте этот код как стандартный модуль.
2. For i = 1 To 1 Step 1определяет, что 2 Option Buttonsбудет создано в Row 1.
3. Если вам нужно создать 4 Option Buttonsэто должно быть For i = 1 To 2 Step 1.
4. ActiveSheet.Range(Cells(i, 3)определяет, что iесть Row valueи 3есть Column, редактируемые.
5. Lined Cell to Option Buttonsесть E1, который можно редактировать.

Часть 2:

Этот макрос поможет вам определить, что Option Buttonбыло сделано для дальнейших действий.

Sub TheSelectCase()  Select Case Range("E1").Value  Case 1 Your Code for further action. Case 2 Your Code for further action.  End Select End Sub