What to use instead of FileDialog in 2000?

[tbeards]

I have a model that I run off of Excel 2003; however, I have about 25% of the users with 2000. I used the following code that works in 2003, but didn't realize the FileDialog doesn't work in Excel 2000 (get the variable not defined error). Are there any quick ways to fix this code so it will work on all? I do not want to maintain two different versions of the model.

With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Show
strFile = .SelectedItems(1)
End With

Thanks beforehand for viewing!

~tbeards

 

[Leith Ross]

Hello tbeards,

This code will work with both.

  Dim CD As String
  Dim varFile As Variant
  
    CD = CurDir
    
    ChDir Application.DefaultFilePath
      varFile = Application.GetOpenFilename
      If varFile = False Then
        MsgBox "Canceled": Exit Sub
      End If
    ChDir CD

Sincerely,
Leith Ross

 

[tbeards]

Works like a charm! Thanks!