See what you get with this

Dim obj as OleObject
for each obj in ActiveSheet.OleObjects
msgbox typename(obj.object)
Next


That will perhaps give you something you can use to identify which are the
checkboxes you want to delete.

--
Regards,
Tom Ogilvy


"Tempy" wrote in message
...
Greetings,

I need to delete a number of check boxes which i copied over from an
HTML document into Excel.

I have the code:
Sub DelAllCb()

Dim shp As Shape

For Each shp In ActiveSheet.Shapes
If shp.FormControlType = xlCheckBox Then
shp.Delete
End If
Next shp

End Sub
But this does not work, is it the format of the check box below?

=EMBED("Forms.HTML:Checkbox.1","")
Please heeellp!!
Tempy

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!