Function FileExists(fname) As Boolean With Application.FileSearch .NewSearch .Filename = fname .Execute If .FoundFiles.Count = 0 Then _ FileExists = False _ Else FileExists = True End With End Function