Delete ComboBoxes using a macro?
I need to delete 33 Comboxes all on the same sheet by using a macro. I am
using very simple code as below, which I got from recording a macro and
deleting one ComboBox which worked fine.
ActiveSheet.Shapes("ComboBox1").Select
Selection.Delete
ActiveSheet.Shapes("ComboBox2").Select
Selection.Delete
ActiveSheet.Shapes("ComboBox3").Select
Selection.Delete
And so on until I have deleted all 33. My problem is that I get an error
message stating:
Run-Time error '-2147024809 (80070057)
The item with the specified name wasn't found.
I have checked the properties of the boxes and they appear to be "named"
correctly. However, if I use On Error Resume Next all but two are deleted.
Any help and advice would be much appreciated as it's driving me "NUTS".
--
Kind Regards
Mick
|