Tjek om filen findes

kan du selv rette til ??

    A = Dir(Sti & fil)
    If A <> "" Then    '
        Svar = MsgBox("Den er der allerede - vil du overskrive?")
        If Svar = vbYes Then
            ActiveWorkbook.SaveAs Sti & fil
        Else
            Exit Sub
        End If
    Else
        ActiveWorkbook.SaveAs Sti & fil
    End If

If Dir(filnavn inkl. sti) <> "" then
    if msgbox("Filen eksister i forvejen. Vil du gemme oveni?", vbQuestion+vbYesNo, "Gem fil") = vbyes then
        ...kode til at gemme....
    end if
end if

Ikke hurtig nok, kan jeg se :-)

Vi skal nok kople alarmen fra:

  A = Dir(Sti & fil)
    If A <> "" Then    '
        Svar = MsgBox("Den er der allerede - vil du overskrive?")
        If Svar = vbYes Then
            Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs Sti & fil
            Application.DisplayAlerts = True
        Else
            Exit Sub
        End If
    Else
        ActiveWorkbook.SaveAs Sti & fil
    End If

Tak guys ... jeg vil gerne give point til word-hajen. Kabbak der er noget mærkeligt med din kode, der kommer kun en ok knap - så den gemmer uanset hvad :o]

Velbekomme.

Lukketid?

Sorry havde ikke set, at du havde lagt et svar :o]

:-) Tak for point.