found this on a forum..
Dim fd As FileDialog
Dim objfl As Variant
Dim filnam As String
... other code .....
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.ButtonName = "Select"
.AllowMultiSelect = False
.Filters.Add "Text Files", "*.txt;*.csv;*.tab;*.asc", 1
.title = "Choose Transactions file to import"
.InitialView = msoFileDialogViewDetails
.Show
For Each objfl In .SelectedItems
filnam = objfl
Next objfl
On Error GoTo 0
End With
Set fd = Nothing
''' filnam then used in following code . Note that although .AllowMultiSelect is set to False, you still need to run through the For each loop.
Hope this helps
change the .filters to add doc.. for word documents