numaratör yardım lütfen

[webasto]

Sub numaratör()
[a1] = [a1] + 1
Sheets("emir").Select
ActiveWorkbook.Save
End Sub

bu makroyla butona basınca numara atıyor arka sayfaya geciyor ve normal üzerine kaydediyor istediğim üzerine kaydettikten sonra birde farklı kaydetmesini istiyorum ne eklemem gerekiyor

 

[Skorpiyon]

Sayın webasto,

Sub numaratör()
[a1] = [a1] + 1
Sheets("emir").Select
ActiveWorkbook.Save
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= "C:\Documents and Settings\Master\Desktop\Kitap1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

Bu her defasında Kitap1 olarak extra kayıt yapar. Kırmızı ile belirtilen alanı kendi bilgisayarınıza göre düzenleyiniz.