PEV
09-09-2011, 01:37 PM
I have the below code as part of a large code. Everything does what it should be doing but i'm still getting the "save as" promt appearing. I would rather it didnt and simply put the newly renamed file on the user's desktop. I thought the Application.DisplayAlerts True/False would have done it not noooooo
Dim Fname As String
Cancel = True
Application.DisplayAlerts = False
ChDir "C:\Documents and Settings\All Users\Desktop\"
Fname = Application.GetSaveAsFilename(ActiveSheet.Range _("AA54").Value, fileFilter:="xls Files (*.xls), *.xls")
If Fname <> "False" Then
ActiveWorkbook.SaveAs Fname
Application.DisplayAlerts = True
What can i do to kill the Prompt?
Dim Fname As String
Cancel = True
Application.DisplayAlerts = False
ChDir "C:\Documents and Settings\All Users\Desktop\"
Fname = Application.GetSaveAsFilename(ActiveSheet.Range _("AA54").Value, fileFilter:="xls Files (*.xls), *.xls")
If Fname <> "False" Then
ActiveWorkbook.SaveAs Fname
Application.DisplayAlerts = True
What can i do to kill the Prompt?