Hi All...........

I have the following code (that I don't begin to understand), which I got
here some time ago. It seems to me that it worked once, but since, my
computer has been upgraded and Office re-installed. Currently I get the
error message "Compile Error: Can't find project or library" with the term
"CurDir" highlighted, when trying to run it.........
Help please......

Function GetFileNameMulti() As Variant
Dim myCurFolder As String
myCurFolder = CurDir
GetFileNameMulti = Application.GetOpenFilename
ChDrive myCurFolder
ChDir myCurFolder
End Function

TIA for any help
Vaya con Dios,
Chuck, CABGx3