Gemsom uden at skullle svare ja til at overskrive

Hej
Jeg har denne kode, den virker fint, men jeg skal hver gang svare ja til at overskrive en af filerne, afhængig af hvilken jeg har åbnet.
Hvordan kan jeg gemme som uden at skulle svare ja?

Sub GemFil()
    Application.ScreenUpdating = False
    Filename = Ark5.Range("A3").Value
    ActiveWorkbook.SaveAs Filename:="I:\Planlægning\Timer\" & Filename & ".xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ActiveWorkbook.SaveCopyAs Filename:="D:\Timeoversigt\" & Filename & ".xlsm"
End Sub