Hi,

Why am I getting an error message here?

deleteme2.xlsx

Sub macro1()

Application.AddCustomList Sheets(1).Range("J1:J7")
'Range("A1").CurrentRegion.Sort key1:=Range("A1"), OrderCustom:=Application.CustomListCount + 1
'Application.DeleteCustomList Application.CustomListCount

End Sub