Here is some VBA code that I have used to "browse" for a file, then
display the document's name into the selected cell.


Sub browse1()

Range("E6").Select
Var1 = Application.GetOpenFilename(FileFilter:="Word Files (*.doc),
*.doc", Title:="Full Document Name")
fileToOpen = Right(Var1, Len(Var1) - InStrRev(Var1,
Application.PathSeparator))
ActiveCell.Value = fileToOpen

End Sub