Vorgabe speichern (.xls)

Public Sub Angbebot_Offerte_speichern_Click()
Auswahl_Speicherort.Hide
Dim a
ChDrive "C:\"
ChDir "C:\ABP\Firma\Technik\Angebote_Offerten\Excel\2009\"
a = Application.GetSaveAsFilename
If Not a = False Then ActiveWorkbook.SaveAs a
Programm_Beenden.Show
End Sub

nun wird mir ein fenster geöffnet mit dem speicherort. ich muss aber zwingend aufpassen, dass ich ja nicht vergesse am ende des dateinamens .xls hinzuschreiben. wie kann ich diesen code abändern damit ich nur den dateinamen schreiben muss und die endung automatisch .xls sprich eine arbeitsmappe ist?
gruess