ByRef v ByVal

[tiredofit]

Can someone please explain why this fails, with the message: Compile error: ByRef argument type mismatch

Option Explicit
Sub Main()
Dim MyFruits() As Variant
MyFruits= Array("Apples", "Oranges")
Dim MyFruitsCount As Variant
For Each MyFruitsCount In MyFruits
    Call Sec(MyName:=MyFruitsCount)
Next MyFruitsCount
End Sub

Sub Sec(MyName As String)

End Sub

Instead, if I changed it to

Sub Sec(ByVal MyName As String)

it works.

Is it because I am originally passing through a variant, though it's expecting a string?

Thanks

(BTW: what is parse v pass)?

 

[RoryA]

Is it because I am originally passing through a variant, though it's expecting a string?

Yes, it's exactly that.

 

[VoG]

This should help you Passing Variable ByRef And ByVal

 

[tiredofit]

Thanks to all.