Set wrk = xcl.Worksheets(CurWorkSheetStr)
    Set xl_wrk = ThisWorkbook.Worksheets(CurWorkSheetStr) ' change this to the sheet which contains your csv data
is giving a run-time error 9 subscript out of range now. What would you advise next? Thank you very much for your help so far, it is much appreciated!