Gem som i Excel

prøv at lege med denne

I ThisWorkbook modulet

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
Makro1
Cancel = True
Application.EnableEvents = True
End Sub


i et modul

Sub Makro1()
Dim SaveName As String
    ChDir "C:\Dokumenter\Excel"
        Flt = "Excel(*.xls),*.xls"
        Titel = "Gem som!"
      SaveName = Application.GetSaveAsFilename(, Flt, 1, Titel)
        ThisWorkbook.SaveAs SaveName

End Sub

jeg rettede lige den sidste

Sub Makro1()
Dim SaveName As String
    ChDir "C:\Dokumenter\Excel"
        Flt = "Excel(*.xls),*.xls"
        Titel = "Gem som!"
      SaveName = Application.GetSaveAsFilename(, Flt, 1, Titel)
      If Not SaveName = "False" Then
        ThisWorkbook.SaveAs SaveName
        End If

End Sub

hej kabbak
undskyld men jeg havde glemt den her.
Kan du ikke smide et svar så du kan få dine point det ser nemlig ud til at virke.
mange tak.

et svar ;-))