Collate Data from csv files to excel sheet

[dhiraj.ch185]

Thanks for the try. But i am facing an issue at

For i = LBound(DataHeader) To UBound(DataHeader)
        If Len(Trim$(DataHeader(i))) Then
            If Not dic.exists(Trim$(DataHeader(i))) Then
                Counter = Counter + 1
                dic.Add Trim$(DataHeader(i)), Counter
            End If
        End If
    Next
    
    Application.ScreenUpdating = j

Throwing an error as "Object Required".

Regards,
-Dhiraj