WorksheetFunction

  • Thread starter Thread starter Mike Fogleman
  • Start date Start date
M

Mike Fogleman

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
 
If the Find function is in error and cannot find "\" then the runtime error
occurs, if Find does see a "\" then the function works.
 
Never mind. I had a temp loss of memory on using InStr instead of
wsfunction.Find.
 
Back
Top