Selecting file and returing/copying the filepath into a Cell

[DEE_715]

Hi Guy's,

First up I want to apologise, I know this is probably very simple but I haven't worked with VBA in quite a while.
I appreciate any help you can provide in advance.

Basically I want to select an excel file from explorer and then return the full file path into a cell in my current excel workbook i.e. A1.
I'm using the below code which allows me to search/select the file but I'm stumped on how to get it to return the full file path into A1.

Many Thanks
David


Sub browseFilePath()
On Error GoTo err
Dim fileExplorer As FileDialog
Set fileExplorer = Application.FileDialog(msoFileDialogFilePicker)


fileExplorer.AllowMultiSelect = False

With fileExplorer
If .Show = -1 Then
[filePath] = .SelectedItems.Item(1)
Else
MsgBox "You have cancelled the dialogue"
[filePath] = ""
End If
End With
err:
Exit Sub
End Sub

 

[Fluff]

How about

With fileExplorer
   If .Show = -1 Then
      Range("A1") = .SelectedItems.Item(1)
   Else
      MsgBox "You have cancelled the dialogue"
   End If
End With

 

[DEE_715]

Thanks Fluff, that worked.

Really appreciate your help, have a good weekend!

 

[Fluff]

You're welcome & thanks for the feedback