Thread: Delete List Box from Sheet

Hi all,

I 've got a list box that I need to remove using a macro.
So far all my attempts to remove it has failed.
If someone can help, I'd be much obliged.

Code:

    Dim Ctrl As Object
    With ActiveSheet
      For Each Ctrl In .Buttons
        Ctrl.Delete
      Next Ctrl
    
      For Each Ctrl In .DropDowns
        Ctrl.Delete
      Next Ctrl
      
        '  For Each Ctrl In .List
' also tried listbox
 'and listbox(1).delete
   ' Ctrl.Delete
   ' Next Ctrl
   ' ListBox1.ListCount

Thanks,

BDB

Hi BDB, close...

Code:

For Each Ctrl In .ListBoxes
    Ctrl.Delete
Next Ctrl