Clear data on all unchecked Excel

I was wondering if its possible to CLEAR ANY CONTENT ROWS OFF THE MAINvIEWsHEET if all the boxes and checkboxes are unchecked. Code going through all controls is Like this...

Dim ctl As CheckBox
Dim ctl1 As OLEObject
Dim bSelected As Boolean
bSelected = False

'Check CheckBox
For Each ctl In Sheet1.CheckBoxes
       If ctl.Value = 1 Then 'Checked
         bSelected = True
       End If
Next ctl

'Check Togglebutton
For Each ctl1 In Sheet1.OLEObjects
    If TypeOf ctl1.Object Is ToggleButton Then
        If ctl1.Object.Value Then
            bSelected = True
        End If
    End If
Next ctl1

If Not bSelected Then
    MsgBox "All unchecked"
End If