Macro to Pull Filename

I am working on a macro where the filename of a .jpg will be placed on the worksheet.  Anyone know how to pull the filename and place it?