Hi All.....

This code works fine in XL2003, but I need the result to work in
XL2000.....possible?

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