Public Sub AddList()

' Add a customization list

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