Thread: Error 400
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Desert Piranha[_27_] Desert Piranha[_27_] is offline
external usenet poster
 
Posts: 1
Default Error 400


Hi all,

I have this Save As code linked to a Option Button.
Everything works as i want it to, except when there is already been a
file saved with the current date.
Then i get a message box asking if i want to overwrite the file.
I DO want that.

BUT if i answer "No" or "Cancel" i get a Visual Basic "Error 400"
thingy.
I DON'T want that error message.

If i put like "Application.DisplayAlerts = False" in then it also
blocks the "Do i want to overwrite dialog",
which i want to keep.


Code:
--------------------
Private Sub SaveAsTo()
Application.ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & _
"myfile " & Format(Date, "mm-dd-yyyy") & ".xls"
End Sub
--------------------
Any direction on this would shurly be appreciated.


--
Desert Piranha


------------------------------------------------------------------------
Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934
View this thread: http://www.excelforum.com/showthread...hreadid=499135