Or do it this way in Excel 2000 or later:

Sub AAA()
Dim MMBkList() As Variant
MMBkList = Array("Add to Not Budgeted", "Add to Charity", "Add to Cash ")
Call MyListBox("Add to which Column?", MMBkList, col)
End Sub

Sub MyListBox(Cptn As String, ByRef List() As Variant, Item)

End Sub

--
Regards,
Tom Ogilvy

"DRA" wrote in message
...
Thanks to all of!

DRA

" wrote:

Try removing the () after List, ie:

Sub MyListBox(Cptn As String, ByRef List() As Variant, Item)

A variant can hold an array by itself. You do not need an array of
Variants.

Regards,
Steve

DRA wrote:
I am trying to pass an array to a subroutine. I always get an error.

in calling code:
MMBkList = Array("Add to Not Budgeted", "Add to Charity", "Add
to
Cash")
Call mylistbox("Add to which Column?", MMBkList, col)
.
.
.

Sub MyListBox(Cptn As String, ByRef List() As Variant, Item)

Help?

Thanks,
DRA