File name without file path (data import) - Excel crash

Hi, I've got the following Import macro, that imports data from another Excel file:

Please Login or Register  to view this content.

Everything works fine as long as the file name consists of 20 (or whatever number we will put there) signs (including .xls) due to this line Filename = Right(File, 20).

Is there a way to change the code in a way that it will just get the file name without specifying its exact number of signs?

Thanks in advance!

After finding solution to the file name problem, I'm now encountering a problem with crashes.. After using this macro for several times (5-6) Excel 2010 crashes.
Do you have any idea what might be causing this or what to change in the code to prevent those crashes?

The code:

Please Login or Register  to view this content.