Macro which opens Browse window and pastes the file name to a cell ?

Hello,

I'm trying to find a macro which could do following.

When running the macro it would open the browse window where I could choose what ever file (it can be *.pdf, *.doc, *.txt, etc) and it would just bring the file name to the Excel cell which was active before running the macro.

Any help appriciated.

Keimoon

Hello,

This is almost what I'm trying to accomplish, but it should be just filename like general.doc which should be "pasted" to active cell (no path). File extension can be "what ever". I made some changes to the code but couple of things missing :

-How to send the filename to the cell where cursor is (if I activate cell A5 and run the Macro it should paste the filename without the path to this cell)

****************************
Sub Opendialog9()
Dim strFile As String, strPath As String

' Prompt user to select a file
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = ThisWorkbook.Path & "\*.*" (I changed *.xls* with *.* to allow all exten)
.Title = "Please Select a File"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then Exit Sub ' User clicked cancel: Exit
strFile = .SelectedItems(1)
End With
Range("B2") = strFile (how could this Range to be changed so that the input cell is which is active before running the Macro?)
End Sub