Uncheck every Check Box Q
That doesn't look like you're unchecking checkboxes.
But glad you have what you want.
Sean wrote:
Thanks Dave, took what Bob said and sourced this piece of code that
runs
Sub DelAllCheckBoxes()
Dim shp As Shape
Application.ScreenUpdating = False
Sheets("Sheet1").Activate
On Error Resume Next
For Each shp In ActiveSheet.Shapes
If shp.FormControlType = xlCheckBox Then
shp.Delete
End If
Next shp
On Error GoTo 0
End Sub
--
Dave Peterson
|