Farklı kaydet butonu

[erki32]

Asıl Dosyamın formatı bozulmadan  farklı kaydet butonu eklemek istiyorum ve tek butonla ,
1) adını C3 hücresinden alacak ve yanına tarih ekleyerek  Yeni bir excel dosyası olarak kaydecek
2) aynı adla ve tarih ile pdf formatıyla kaydedecek
3) Masaüstündeki belgelerimin içine kaydedecek
 Nasıl yapabilirim yardımcı olurmusunuz

[erki32]

Sub kaydet()
'
' kaydet Makro
'

isim = ActiveWorkbook.ActiveSheet.Range("C3")
    ChDir "C:\Documents and Settings\Xp\Desktop"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\Xp\Desktop\" & isim & ".xls"
        :=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Documents and Settings\Xp\Desktop\sonteklif1 22.04.2015.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    Range("M3").Select
    Windows("PERSONAL.XLSB").Activate
    Windows("sonteklif1 22.04.2015.xls").Activate
End Sub

böyle birşey yapmaya çalıştım ama hata veriyor