Function unable to return Collection object

[Adrian]

Hi,

Here is a small segment of my code :
"
Sub SeedOPErrs()

Dim a As Collection
a = rFunction() ' <----VBA editor returns an error "Argument not
optional"
' when I attempt to run SeedOPErrs

End Sub

Function rFunction() As Collection

Dim a As New Collection
a.Add "GT"

rFunction = a

End Function

"

What is wrong with the code above ? Why is there an error "Argument not
optional" ??!! I stared at my screen for hours ...and i still cannot figure
out !!
Thanks in advance !!!

Regards,
Adrian

 

[Tom Ogilvy]

Sub SeedOPErrs()

Dim a As Collection
Set a = rFunction
For Each itm In a
Debug.Print itm
Next

End Sub

Function rFunction() As Collection
Dim a As New Collection

a.Add "GT"
Set rFunction = a


End Function

 

[Adrian]

Thanks a million ! It works!

Sub SeedOPErrs()

Dim a As Collection
Set a = rFunction
For Each itm In a
Debug.Print itm
Next

End Sub

Function rFunction() As Collection
Dim a As New Collection

a.Add "GT"
Set rFunction = a


End Function