يمكن استخدام النطاق بدلا من كتابة بنود المصفوفة بالشكل التالي :
Sub SortCustomList()
Dim vArray() As Variant
'Change the range which you want to set the custom list.
vArray = Range("J1:J5")
Dim i As Long
For i = LBound(vArray, 1) To UBound(vArray, 1)
Debug.Print vArray(i, 1)
Next
Application.AddCustomList vArray
Range("A1").CurrentRegion.Sort key1:=Range("A1"), OrderCustom:=Application.CustomListCount + 1
Application.DeleteCustomList Application.CustomListCount
End Sub
كل عام وأنتم بخير إخواني الأعزاء