you need to remove the brackets from test2 (A) , it should be test2 A
eg:
Code:
Dim A() As Double
Sub test2(v() As Double)
v(1) = 17
MsgBox v(1)
End Sub
Sub test1()
ReDim A(9) As Double
test2 A '/// notice the brackets removed from A
End Sub
Private Sub Command1_Click()
test1
End Sub
|
__________________
~~ please don't PM me regarding code, I only reply to personnal messages ~~
|