Programming Excel with VBA and .NET

Name

Application.GetCustomListContents

Synopsis

Returns an array of items from a custom list. For example, the following code displays all of the items in each of the custom lists:

Sub TestListContent(  )
    Dim i As Integer, lst(  ), str As String, num As Integer
    Debug.Print "List Number", "Contents"
    For i = 1 To Application.CustomListCount
        lst = Application.GetCustomListContents(i)
        str = Join(lst, ", ")
        num = Application.GetCustomListNum(lst)
        Debug.Print num, str
    Next
End Sub