Quote Originally Posted by WoF
I think you must use the Set directive to assign a collection
Try this:
Code:
Property Get getAllTestNames() As Collection
    Set getAllTestNames = colAlltests
End Property
...
Sub CreateLabReport()

Dim filereader As New clsReadTextFile
Dim AllTestNames As Collection
 
    Set AllTestNames = filereader.getAllTestNames() ' this line causes error msg

end sub
Seems to work for me...
It works for me too- thanks