Hi All.......the following code works fine in xl03 but does not work in xl2k.
Can anyone please tell me if it can be modified to work in xl2k?

Dim strFile As Variant
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Filters.Add "Excel Files", "*.xls"
.InitialFileName = ThisWorkbook.Path & "\"
.Show
strFile = .SelectedItems(1)
End With

Workbooks.Open Filename:=strFile

TIA
Vaya con Dios,
Chuck, CABGx3