Overskriv fil med makro

Hej

Jeg bruger en makro som den nedenfor. Mit problem omhandler linjen:

ActiveWorkbook.SaveAs "F:\Makro\Prognose\Forudsigelser\" & Range("A1").Value & ".prn" _, FileFormat:=xlTextPrinter, CreateBackup:=False

Her bliver jeg spurgt om jeg vil overskrive filen. Det vil jeg altid og jeg vil gerne have, at den ikke spørger mig.

Med venlig hilsen
Jeppe

___________

Sub Lavprn()
    Range("C1:H62").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    ActiveWorkbook.SaveAs "F:\Makro\Prognose\Forudsigelser\" & Range("A1").Value & ".prn" _
        , FileFormat:=xlTextPrinter, CreateBackup:=False
    Range("1:3,5:5,8:8,16:16,19:20,23:23,26:27,30:30,32:32,48:48,52:52,58:58,61:61").Select
    Selection.Delete Shift:=xlUp
    ActiveWorkbook.Save
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Calculate
End Sub