Hi

There are several ways you can do this - here's one:

Dim strFile As String

With Application.FileDialog(msoFileDialogFilePicker)
  .InitialFileName = "C:\Somefolder\"   'amend as appropriate - you can leave it blank (comment out this line if desired)
  .AllowMultiSelect = False
  If .Show <> -1 Then Exit Sub
  strFile = .SelectedItems(1)
End With

MsgBox strFile