Collate Data from csv files to excel sheet

[dhiraj.ch185]

Not too many rows. You can try if you wanted to. I am attaching the folder zipped.

How about a simple approach like:

ub ActivateASheet()
Dim SShtName As String
Dim Wbk As Workbook
Dim Ssheet As Worksheet

For Each Wbk In Application.Workbooks
On Error GoTo Done
Wbk.Activate
On Error Resume Next
SShtName = Sheet1.Range("A1")
Set Ssheet = Sheets(SShtName)
If Not Ssheet Is Nothing Then
Ssheet.Activate
Exit Sub
End If
Next Wbk

Done:
ThisWorkbook.Activate
End Sub

Can you tweak it to work for my scenario.

Thanks,
Dhiraj