Delete Active X Radio Buttons

[Learn_VBA]

I have a macro which copies over the relevant data from one tab to a new tab within a new workbook. However, it also copies across two radio buttons which I no longer need within the new document. How do I delete these?

The two radio buttons cover cells U3 to AB 20

 

[Domenic]

When you say "Radio Buttons", I assume that you mean option buttons, correct? If so, the following examples assume that Sheet1 contains the option buttons to be deleted.

1) If the option buttons are the only ActiveX controls on the worksheet, and you want to delete all of them...

Worksheets("Sheet1").OLEObjects.Delete

2) If the option buttons are the only ActiveX controls on the worksheet, and you only want to delete the ones where the top left corner of the button lies over the range "U3:AB20"...

Dim OleObj As OLEObject

For Each OleObj In Worksheets("Sheet1").OLEObjects
    If Not Application.Intersect(Worksheets("Sheet1").Range("U3:AB20"), OleObj.TopLeftCell) Is Nothing Then
        OleObj.Delete
    End If
Next OleObj

3) If the worksheet contains other types of ActiveX controls, and you want to delete all option buttons...

Dim OleObj As OLEObject

For Each OleObj In Worksheets("Sheet1").OLEObjects
    If TypeName(OleObj.Object) = "OptionButton" Then
        OleObj.Delete
    End If
Next OleObj

4) If the worksheet contains other types of ActiveX controls, and you only want to delete the ones where the top left corner of the button lies over the range "U3:AB20"...

Dim OleObj As OLEObject

For Each OleObj In Worksheets("Sheet1").OLEObjects
    If TypeName(OleObj.Object) = "OptionButton" Then
        If Not Application.Intersect(Worksheets("Sheet1").Range("U3:AB20"), OleObj.TopLeftCell) Is Nothing Then
            OleObj.Delete
        End If
    End If
Next OleObj

Hope this helps!