macro to save as without dialog prompt

[Hansulet]

I have a VBA code to save as my file in other location but I need an improvement to save as my file without dialog prompt

ActiveWorkbook.SaveAs Filename:="C:\Users\alex-cccp\Desktop" & ActiveWorkbook.Name, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = False

 

[yky]

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Users\alex-cccp\Desktop" & ActiveWorkbook.Name, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True

 

[Hansulet]

Thanks a lot !
It is working perfect !!!