hi ,

i have written the below code. please tell me where i went wrong.
i am getting an error message saying "Invalid data type"

  Dim TestSetFact
    Dim TSTestFact
    Dim theTestSet
    Dim theTSTest
    Dim TestSetTestsList, TestSetsList
    Dim tsTreeMgr
    Dim tSetFolder
    Dim Tset
    

' Get the TDConnection.TestSetFactory.
    Set TestSetFact = tdc.TestSetFactory
' Get the test set tree manager from the test set factory.
    Set tsTreeMgr = tdc.TestSetTreeManager
' Get the test set folder.
    Set tSetFolder = tsTreeMgr.NodeByPath(Test_Path.Text)
' Because we are searching for the full name,
' the list will have only one entry.
    Set TestSetsList = tSetFolder.NewList("") //// getting error at this line
    
For Each Tset In TestSetsList
 
Set TSTestFact = theTestSet.TSTestFactory
    Set TestSetTestsList = TSTestFact.NewList("")
    
    
    
'Sheet3.Cells(1, 1).Value = "Test Case Name"
'Sheet3.Cells(1, 2).Value = "Status"
'Sheet3.Cells(1, 3).Value = "Execution Date"
'
'
'Dim TestCase
'Row = 2
'For Each TestCase In TestSetTestsList
'Sheet3.Cells(Row, 1).Value = TestCase.Field("TS_NAME")
'Sheet3.Cells(Row, 2).Value = TestCase.Field("TC_STATUS")
'Sheet3.Cells(Row, 3).Value = TestCase.Field("TC_EXEC_DATE")
'
'
'Row = Row + 1
'Next
Next