Re: Save as, not overwrite

Tech-Archive recommends: Speed Up your PC by fixing your registry

Suggest you remove:

Application.DisplayAlerts = False

The code *is* doing a Save As ... you just choose to allow it to overwrite
an existing file.

Regards

Trevor


"Carlee" <Carlee@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:AB1CED17-5803-400F-A2D2-F12428DB9CAC@xxxxxxxxxxxxxxxx
Hi there,

The following code saves the spread*** in question, overwriting any
existing with the same name, that is found on the Desktop.

Question:
How can i change this code such that it prompts me to Save As, rather than
overwrite?

Any help is appreciated greatly,

pathToUserDesktop = "C:\Documents and Settings\" & _
Get_Win_User_Name() & "\Desktop\" & newWorkbookName
'save new workbook, but don't nag
'user with "file exists" message
Application.DisplayAlerts = False
With Workbooks(destBook)
'renames it while saving it
'will overwrite existing file of same name
.SaveAs pathToUserDesktop
'close it
.Close
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True

--
Carlee


.

Quantcast