Click on below mentioned image to watch video

Download Sample Workbook

Sub CreateCustomList()
Application.AddCustomList listarray:=Array("A", "B", "C", "D", "E")
Sheet2.Range("D1").Value = "A"
Sheet2.Range("D1").AutoFill Destination:=Range("D1:D5"), Type:=xlFillDefault
End Sub

Sub DefineCustomListUsingDataInRange()
Application.AddCustomList listarray:=Sheet2.Range("F1:F6")
End Sub

Find the Number of Custom List count

MsgBox Application.CustomListCount

Delete the Custom List

Application.DeleteCustomList (1)

Application.DeleteCustomList ListNum:=1