"Charles Chickering" wrote in
message
.FilterIndex = 2
I'm not entirely sure that I would want to rely on the correct filter being
in position 2, especially since Filters can be added and deleted. Instead,
I'd probably modify the code I posted earlier to the following:
Dim FName
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "%UserProfile%\My Documents"
.AllowMultiSelect = False
.Filters.Add "Excel File (*.xls)", "*.xls", .Filters.Count + 1
.FilterIndex = .Filters.Count
If Not .Show Then
.Filters.Delete .Filters.Count
Exit Sub
End If
.Filters.Delete .Filters.Count
FName = .SelectedItems(1)
End With
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)
"Charles Chickering" wrote in
message ...
Hi Steven, try this:
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "%UserProfile%\My Documents"
.AllowMultiSelect = False
.FilterIndex = 2
If Not .Show Then Exit Sub
FName = .SelectedItems(1)
End With
--
Charles Chickering
"A good example is twice the value of good advice."
"Steven" wrote:
I have the following code:
Private Sub OpenMyDocuments()
On Error GoTo ErrMacro
Dim FName As String
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "%UserProfile%\My Documents"
.AllowMultiSelect = False
If Not .Show Then Exit Sub
FName = .SelectedItems(1)
End With
If Len(FName) 0 Then
Set wb = Workbooks.Open(FName)
End If
Application.RecentFiles.Add Name:=FName
Windows("Notes.xls").Close (0)
ErrMacro:
End Sub
It shows - All Files (*.*) - in the Files of Type field. How do I make
it
default to - All Microsoft Office Excel Files - ?
Thank you for your help.
Steven