File Name Exists Error Trap
I need to stop the file exists from killing my macro and
loop back until my user inputs a filename that is unique.
fname = InputBox("Please Enter File Name", "File Name")
With Application.FileSearch
.Filename = fname
.Execute
If FoundFiles.Count < 0 Then
fname = InputBox("FileName Exists Please Try
Again.", "File Exists")
Else
ActiveWorkbook.SaveAs Filename:=fname
End If
The denotes where I was headed. I am slowly but surely
eating this elephant one bite at a time.
Thanks...
(Hopefully you guys like the taste of Elephant also)
|