Adding file name to a cell

[ai1094]

I have a macro that prompts the user to open an excel file. The chosen file gets copied into the current workbook.
My question is:Is it possible to write a code that copies the file name that was chosen and paste it in a cell of the workbook that is already opened?

 

[rpaulson]

sure,

i assume you are browsing for the file to open,

fName = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
Range("A1") = fName
Workbooks.Open fName

hth,
Ross