VBA passing Array arguments to procedure

[George]

Good day all.


My problem is in the extract from my program below.
The procedure call "Call RearrangeCoordinates(RearrangeCoords(), ReturnCoords())" return a message "Type mismatched: Array or user-defined type expected"
Are there any views as to why the message is being displayed?

Private Sub CommandButton1_Click()

Dim ReturnCoords As Variant

Dim ...........................................

ArrayLength = UBound(ReturnCoords)
ReDim RearrangeCoords(0 To ArrayLength) As Variant
Call RearrangeCoordinates(RearrangeCoords(), ReturnCoords())
..........................................

End Sub


Public Sub RearrangeCoordinates(ByRef RearCoord() As Variant, ByRef ReturnCoords() As Variant)

For q = 0 To 8 Step 2
RearrangeCoords(q) = ReturnCoords(q + 1)
RearrangeCoords(q + 1) = ReturnCoords(q)
Next q

End Sub

[CJ_London]

duplicate post here

http://www.access-programmers.co.uk/...d.php?t=277401

Please read this thread

http://www.excelguru.ca/content.php?184

[John_G]

Your error is here: ArrayLength = UBound(ReturnCoords)

ReturnCoords is not an array (Dim ReturnCoords As Variant), and it is the UBound function that is giving you the error.

Why are you checking for the array size right after you declare it? If ReturnCoords is an array, and exists outside the sub and you want to reference it, remove the Dim statement for it.