Farklı isim yada numarayla kaydetme

[özilhan]

Herkese merhaba..
Çalışma kitabımım içine makro koydum ve makroyu çalıştırdığım da bu çalışma kitabını farklı bir isimde (çalışma sayfasında ki A1 hücresinin içeriğini çalışma kitabına isim olarak atamasını) bu olmuyorsa çalışma kitabına yeni bir isim ya da numara vererek kaydetmesini istiyorum.
Makro:


Sub denemeMustKayit()
ChDir "C:\Documents and Settings\Beko\Belgelerim\sz"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Beko\Belgelerim\sz\sz1.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=True
End Sub


Herkese şimdiden teşekkürler..

 

[özilhan]

Değerli arkadaşlar bu makronun doğru cevabını M.Kubilay Karabulut Yazmıştır Kendisine çok teşekkür eder ve sizinle paylaşmak istiyorum.

Sub W()
If MsgBox("Yedek almak istiyor musunuz?", vbYesNo + vbQuestion, "Y E D E K L E M E") = vbNo Then Exit Sub
dosya = Range("a1").Value & ".xls"
ThisWorkbook.SaveAs ("C:\Documents and Settings\Beko\Belgelerim\sz\" & dosya)
End Sub