The following code removes Tables, ComboBoxes, and ListBoxes from worksheets named "Step # *".
Sub RemoveTablesCombosAndLists()
Dim Sh As Worksheet
Dim Tbl As ListObject
Dim objOLE As OLEObject
Application.EnableEvents = False
Application.ScreenUpdating = False
For Each Sh In ThisWorkbook.Worksheets
If LCase(Sh.Name) Like "step#*" Then
For Each Tbl In Sh.ListObjects
If LCase(Tbl.Name) Like "step_bom#*" Then
'remove Table
Tbl.Range.Clear
End If
Next Tbl
For Each objOLE In Sh.OLEObjects
'remove ListBoxes AND ComboBoxes from sheet
If objOLE.progID = "Forms.ListBox.1" Or objOLE.progID = "Forms.ComboBox.1" Then
objOLE.Delete
End If
Next objOLE
End If
Next Sh
Application.EnableEvents = True
End Sub
You have the procedure for removing code from sheet modules in another thread.
Artik