Open Explorer and add file name in cell

[Agamemnon]

Hi,

I was wondering if I could open Explorer, select a file (not open the file) and get the file location + name + extention into a cell


Eg. Open Window Explorer on folder C:\Pictures
Select the file Picture1.jpg
Put the value: C:\Picture\Picture1.jpg into Cell: sheet1!a1

I'm curious if this is possible.

Thx for helping me out.
Aga

 

[TheMightyHetfield]

Hi,

This works,

Sub GetFName()

[A1] = Application.GetOpenFilename

End Sub

Cheers