Search all workbooks in a specified folder and return the desired cell value and file name

Path = Application.GetOpenFilename(, , "Select a file in the Folder you want to list", , False)
If Not Path Then End
Path = Left(Path, InStrRev(Path, "\"))

This didn't work.

Giving me error: Run Type error "13", Type mismatch.