Share via


GetCustomListContents Method [Excel 2003 VBA Language Reference]

Returns a custom list (an array of strings).

expression**.GetCustomListContents(ListNum)**

expression Required. An expression that returns an Application object.

ListNum   Required Long. The list number.

Example

This example writes the elements of the first custom list in column one on Sheet1.

listArray = Application.GetCustomListContents(1)
For i = LBound(listArray, 1) To UBound(listArray, 1)
    Worksheets("sheet1").Cells(i, 1).Value = listArray(i)
Next i

Applies to | Application Object

See Also | AddCustomList Method | CustomListCount Property | DeleteCustomList Method | GetCustomListNum Method