FILEEXISTS

REMARKS

Public Function FILEEXISTS(ByVal sFilePath As String) As Boolean 
    FILEEXISTS = Not (Dir(sFilePath) = vbNullString) 
End Function 

For instructions on how to add this function to a workbook refer to the page under Inserting Functions