Update macro to just auto overwrite if file name already exists

[tonywatsonhelp]

Hi everyone,
This macro works great, but if there is already a file with the same name it dugs out,
i want it to just overwrite the file.
can this be done?
if so, lease update the attached.
thanks
Tony

my code

Sub Create_Report()
 Call AA_Protect
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False


myLoc = Application.ActiveWorkbook.Path
NewName = Range("O10")

ActiveSheet.Copy

ActiveWorkbook.SaveAs myLoc & "\" & NewName & ".xlsx"

MsgBox "Report Created"


Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
 Call AA_unProtect
End Sub

 

[Joe4]

Turning off alerts with this line of code:

Application.DisplayAlerts = False

should suppress those warnings.

Are you sure that isn't a different issue, such as the file with the same name that you want to overwrite is already open on your computer or someone else's (you cannot overwrite an open file)?
Or that you have an invalid file name in cell O10 (what value exactly is in this cell)?

What is the exact message you are getting?

 

[tonywatsonhelp]

Hi Joe,
I thought i had I'll try it again
thanks
Tony

 

[Joe4]

If it still does not work, please provide us with the value in cell O10 and let us know the exact message you are getting.