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