VBA to: Look in folder for .xlsm file, and list its filename in cell

Hi,
I'm looking for VBA code that will look in a specific folder (fixed filepath) for a .xlsm file (there will only be one .xlsm file in the folder). I would then like to have the filename of that single .xlsm file displayed in cell A1.

How do I write a macro to:

Look in:
C:\Test\Test_Folder
Find:
".xlsm" (unknown filename)
Range("A1"). Value= (unknown filename)

Thanks for the help!!!

In this case (fixed filepath, one xlsm file) I think you can try something like this:

Please Login or Register  to view this content.

Thanks for the replies so far, I'll try that code when I get home.

Yes, I foresee only one .xlsm file in the folder at any given time.

Otherwise, what would have to be included to accommodate, say 5 total files in the folder?

If that overly complicates things, forget about it.

A1 = file1
A2 = file2
A3 = file3
Etc...

Tha

Try this, should look for every xlsm file in a given folder:

Please Login or Register  to view this content.

Sbarro, I am quite thankful for your assistance. Both versions work perfectly, and are efficiently done; nice job!

I have some other code that I'm going add in, so it should be a nifty deal.

Thanks again!