Passing Multiple Arguments To A Public Sub

[DJL_DASH]

Hi,
I am having trouble dealing with multiple arguments when they are passed from one cell to the next.

I have the following public sub:

Public Sub testFunctOne()
Dim arg1, arg3 as Long, arg2, arg4 as Variant, arg5 as String
arg1 = 10
arg2(1) = True
arg2(2) = False
arg3 = 10
arg4 (1)= 1
arg4(2) = 2
arg5 = "String"

FunctOne arg1, arg2, arg3, arg4, arg 5

End Sub

Which I pass to the following:

Public Sub FunctOne(ByRef arg1 as long, ByRef arg2 as variant, ByRef arg3 as long, ByRef arg4 as variant, ByRef arg5 as String
Dim something as Integer
Something = 0
End Sub

But I get the following error

Compile Error:
Argument not optional

What is going wrong?

P.S. I am still a bit unclear on the public vs. private sub/ ByRef demarcation.

 

[Ruddles]

FunctOne arg1, arg2, arg3, arg4, [B][COLOR=red]arg 5[/COLOR][/B]

Oops!

 

[shg]

P.S. I am still a bit unclear on the public vs. private sub/ ByRef demarcation.

Public (the default) and Private just affect the visibility of the procedure outside the module in which it appears. Procedures outside the module may still invoke Private procedures, but must prefix the module name:

Module1!FunctOne arg1, arg2, arg3, arg4, arg5

Arguments passed ByRef (the default) are (for scalar variables) a pointer to the variable's address (i.e., the variable itself), so the called procedure can modify them, and those changes will be reflected in the calling procedure.

Arguments received ByVal are a local copy of the variable passed to the procedure; the called routine can modify them at its convenience, but the calling routine will not see the changes.

Arrays are always passed ByRef.

The situation is a little more complex for object variables, but the result is the same.

Chip Pearson explains it all pretty well on his site.