Hvordan undgår jeg at blive spurgt om filen skal overskrives?

Sub GemCSV()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = True
    ActiveWorkbook.Save
    ChDir "G:\Sider"
    Sheets("data").Select
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
                          "G:\LabApps\Info\Sider\x.csv", FileFormat:=xlCSV, CreateBackup:=False
    Application.DisplayAlerts = True

Den spørger stadig "Do you want to save the changes you made to... Yes No Cancel

Sub GemCSV()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = True
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    ChDir "G:\Sider"
    Sheets("data").Select
    ActiveWorkbook.SaveAs Filename:= _
                          "G:\LabApps\Info\Sider\x.csv", FileFormat:=xlCSV, CreateBackup:=False
    Application.DisplayAlerts = True

Den spørger ikke ved mig

Det gjorde den heller ikke til at starte med, men lige pludselig er den begyndt at drille. Jeg må se om jeg kan finde udfordringen. Måske er det fordi vi i en periode både har office 2007 og 2003 indtil alle vores pc'er er blevet opdateret med office 2007

Kan det være fordi jeg kalder rutinen fra en auto_close() event?

Jeg har faktisk ingen anelse, om hvorfor ;-((

Er det muligt istedet at skrive til/opdatere en CSV-fil, hvor værdierne fra fra området A til Z og 1 til 112, så jeg slipper for at benytte SaveAs?

Sådan gemmes via kode

Sub GemCSV()
    Dim Data As Variant, I As Integer, X As Integer
    Application.ScreenUpdating = True
    ' ActiveWorkbook.Save du behøver ikke at gemme
    '  ChDir "G:\Sider"' hvorfor skifte sti
    Data = Sheets("data").Range("A1:Z112")
    Open "G:\LabApps\Info\Sider\x.csv" For Output As #1
    For I = 1 To UBound(Data, 1)    ' rækker
        For X = 1 To UBound(Data, 2) - 1    ' kolonner
            Print #1, Data(I, X) & ";";
        Next
        Print #1, Data(I, UBound(Data, 2))
    Next
    Close #1
End Sub