Proponowanie Nazwy Pliku do zapisu

Witam mam następujące makro:




Option Explicit

Sub Zapis()

Dim Nazwa           As String
Dim NazwaPliku      As Variant
Dim odp             As VbMsgBoxResult
Dim Email

' pobranie wartości z arkusza
    Nazwa = ActiveSheet.Range("P14").Value & "_Wysylka_" & _
        Format(ActiveSheet.Range("D10").Value, "yyyy.mm.dd") & "_" & _
        Format(Time(), "hh.mm")

    Sheets("Zlecenie").Select
    Sheets("Zlecenie").Copy
    Application.ScreenUpdating = False
    ActiveSheet.Range("$A$14:$K$64").AutoFilter Field:=2
    Range("D6:D12").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A15:L64").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Range("$A$14:$K$64").AutoFilter Field:=2, Criteria1:="<>"
    Columns("M:Z").Select
    Selection.Delete

   
    Range("E12").Select

    NazwaPliku = Application.GetSaveAsFilename( _
        InitialFileName:=Nazwa, _
        FileFilter:="Skoroszyt Excel,*.xls")
   
    If NazwaPliku = False Then Exit Sub
   
    ActiveWorkbook.SaveAs NazwaPliku
   
    Application.ScreenUpdating = True
    odp = MsgBox("Zlecenie zapisano " & _
    vbNewLine & vbNewLine & "Czy chcesz je wysłać e-mailem?", vbOKCancel, "wyslij")
    If odp = vbOK Then Email = Application.Dialogs(xlDialogSendMail).Show("", Nazwa)
   
    ActiveWindow.Close
   
End Sub

Kopiuje ono arkusz Zlecenie (po małej obróbce - usuniecie kolumn itp) do nowego skoroszytu który nazywa pobierając dane z arkusza źródłowego. Pomysł był taki aby ten kto uruchamia to makro miał otwierające się okienko z propozycją nazwy, (którą może sobie zmienić), a sam wybierał miejsce gdzie chce sobie zapisać ten plik a następnie by otwierało się okienko proponujące wysyłania tego jako załącznik e-mail o ustalonej nazwie tematu.
Problem w tym że nie pojawia się niestety propozycja nazwy. Problem zaobserwowany w Excell2007 + Windows7. Proszę o korektę makra

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

katkaras.opx.pl