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