From
https://stackoverflow.com/questions/...g-lists-in-vba
Code:
Sub RemoveCustomLists()
Dim i As Long
On Error Resume Next
For i = 1 To Application.CustomListCount
Application.DeleteCustomList (i)
Next i
On Error GoTo 0
End Sub
This may also be of interest.