I would like to add multiple custom lists taken from the
activeworkbook sheet1. Sheet1 would have n custom lists with each
list in a column starting in row 1. Each column will be a custom
list to be imported.

I'm not clear how to do this using the addcustomlist command. I have
some code but it's not working. (I think it's pretty far off from
working.)

sub AddMultipleLists()
NbrOfLists=4
For Index =1 to NbrOfLists
For i = Lbound(ListArray,1) to Ubound(ListArray,1)
Worksheets("sheet1").cells(i, ColIndex).Value =
ListArray(i)
application.addcustomlist Array(ListArray)
Next I
Next Index

Any ideas? Thx Chet