Thanks for your Reply. Now I receiving an Error in the following part of the code:

Name FilesDir & Application.PathSeparator & CurFile As _
FilesDir & Application.PathSeparator & Cells(RowNum, "B").Value

Do you know what went wrong?

Kind regards
SFA