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


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"DRA" wrote in message
...
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