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

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