I get the runtime error 1004: Unable to get the Find property of the
WorksheetFunction class.
Can any body point that problem?

Dim fileToOpen, dname, fname

fileToOpen = Application _
.GetOpenFilename("Database Files (*.dbf), *.dbf")
fname = Left((Right(fileToOpen, 11)), 7)
If IsError(Application.WorksheetFunction.Find("\", fileToOpen, 4)) = True
Then
dname = Left(fileToOpen, 3)
Else
dname = Left(fileToOpen, Application.WorksheetFunction.Find("\", fileToOpen,
4) - 1)
End If