Gemme - Filnavn "A2" og sidste værdi i kolonne A

Jeg har selv løst det:
Public Sub GemSom()
        lastrow = Range("A65536").End(xlUp).Cells
navn = Application.GetSaveAsFilename("Diagram - " & Sheets("Kontobevægelser").Range("A2") & "-" & lastrow, "Microsoft Office Excel-projektmappe (*.Xls), *.Xls")
If Not navn = "False" Then
ThisWorkbook.SaveAs navn
End If
End Sub

Her kommer lige en ny version - Der var en lille fejl:

Public Sub GemSom()
'Åbner Gem Som og foreslår navn "Diagram - FørsteDato-SidsteDato
If Sheets("Kontobevægelser").Range("A2") <> "" Then
    lastcell = Sheets("kontobevægelser").Range("A65536").End(xlUp).Cells
    navn = Application.GetSaveAsFilename("Diagram - " & Sheets("Kontobevægelser").Range("A2") & "-" & lastcell, "Microsoft Office Excel-projektmappe (*.Xls), *.Xls")
    If Not navn = "False" Then
    ThisWorkbook.SaveAs navn
    End If
Else
    Call IngenData
End If
End Sub