Sub Macro1()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Filters.Clear
fd.AllowMultiSelect = False
If fd.Show = True Then
Documents.Open FileName:=fd.SelectedItems(1)
End If
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/