xl2k vs xl03 code difference

[CLR]

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

 

[CLR]

Thanks Jan Karel, I appreciate that very much.
I'll give it a try ASAP.

Vaya con Dios,
Chuck, CABGx3

 

[CLR]

Outstanding........works super-fine for me

Many thanks Jan Karel

Vaya con Dios,
Chuck, CABGx3