Ekstra mellemrum ved SaveAs

Hey!
Jeg har en formel i D1 som giver følgende resultat: "Pris 01-07-20"

="Pris "&HVIS(TEKST(IDAG();"DD")>10;"01"&TEKST(IDAG()+20;"-MM-ÅÅ");15&TEKST(IDAG();"-MM-ÅÅ"))

I min VBA har jeg   
ActiveWorkbook.SaveAs Filename:= _
        "W:\XXX\XXX varsling" & _
        Replace(Sheets("ark").Range("D1").Text, "Pris ", "") & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Når jeg gemmer hedder filen "XXX varsling 01-07-20 .xlsx"
Hvordan kommer jeg af med det sidste mellemrum mellem 20 og .xlsx? Og hvorfor opstår det?