Reset option buttons, comboboxes and activex textboxes

[Mikeymike_W]

Hi,
I have the following bit of code which i use in a userform to reset it. I thought i would be able to use the same bit of code within a standard sheet using a command button linked to the code but it doesnt work, just throws an error at the me.control part. Would anyone know how to adapt for use within a sheet?
Many thanks in advance for your help.

Private Sub CBILCReset_Click()

Dim oCtrl As Control
    For Each oCtrl In Me.Controls
        Select Case TypeName(oCtrl)
            Case "TextBox", "ComboBox"
                oCtrl.Value = ""
            Case "OptionButton"
                oCtrl.Value = False
        End Select
    Next oCtrl
    
End Sub

 

[DanteAmor]

This could be an option if they are ActiveX controls:

Private Sub CBILCReset_Click()
  Dim oCtrl As OLEObject
 
  For Each oCtrl In ActiveSheet.OLEObjects
    If TypeOf oCtrl.Object Is MSForms.TextBox Or _
       TypeOf oCtrl.Object Is MSForms.ComboBox Then
        oCtrl.Object.Value = ""
    ElseIf TypeOf oCtrl.Object Is MSForms.OptionButton Then
        oCtrl.Object.Value = False
    End If
  Next oCtrl
End Sub

 

[Mikeymike_W]

DanteAmor, that worked perfectly!
Thank you so much for your help, it is greatly appreciated

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.