I have a code that was working well but suddenly I got an error at this line
Code: Select all
Application.AddCustomList x
Any idea how to fix that?
I tried this code but with no success
Code: Select all
Sub Demo()
Dim i As Integer
For i = Application.CustomListCount To 1 Step -1
On Error Resume Next
Application.DeleteCustomList (i)
On Error GoTo 0
Next i
End Sub