Deleting non-ActiveX Comboboxes

This macro will remove all Objects from a page.

Sub RemoveObjects()
Dim PicObj As Object
For Each PicObj In ActiveSheet.Shapes 'OLEObjects
'MsgBox PicObj.Name
ActiveSheet.Shapes(PicObj.Name).Cut
Next PicObj
End Sub

Beware:
It will take pictures and Control objects along with Objects from the Forms Toolbox.

Why not just Edit>Goto...Special...Objects and then hit delete?

Thanks both for the reply!

I should have been more specific in my post. I need to delete several hundred comboboxes of a certain type, leaving many comboboxes on the sheet untouched. I was able to use most of Datsmart's code though. I simply added an if statement dealing with the object name to limit the deletions to just the comboboxes I wanted. Thanks again!

Jordo,

Could you list your code so we can all learn how to make the selection?

Thanks,

Datsmart

I inserted an if statement that limited the deletions to just Comboboxes. I also added a variable num, which is the number at the end of the Combobox name. By changing the condition of num in the if statement, you can specify exactly which comboboxes will be deleted.

Sub RemoveObjects()
Dim PicObj As Object
Dim num As Integer

For Each PicObj In ActiveSheet.Shapes 'OLEObjects
num = Right(PicObj.Name, 1)
If Left(PicObj.Name, Len(PicObj.Name) - 2) = "Drop Down" And num < 3 Then ActiveSheet.Shapes(PicObj.Name).Cut
Next PicObj
End Sub

Nicely done,
thanks for the code.