The quick solution is like this

On Error Resume Next
Workbooks.Open (filepath & file)
On Error GoTo 0