Public Sub DeleteCustomList()
' Delete a customization list

    Dim custom As Customization
    Set custom = tdc.Customization
    Dim oLists As CustomizationLists
    Set oLists = custom.Lists
    oLists.RemoveList ("list_02")
    custom.Commit
    
End Sub