ExcelBanter - check if file exists

Thanks much will get at it

"Steve" wrote:

this should get you started:

Function FileExists(fName) As Boolean
' True if exists
On Error GoTo FileExists_Error

FileExists = False

Dim x As String
x = Dir(fName)
If x < "" Then FileExists = True

Exit Function

FileExists_Error:
Select Case Err.Number
Case 52
FileExists = False
Case Else
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in
procedure FileExists "
End Select
End Function

"Curt" wrote in message
...
Need help vba code to take input from save as dia box check if that file
exists if does reject that filename. then ask for diff name.