sheet kaydetme

[PEPE]

aşağıdaki makro açık çalışma kiatabındaki açık olan sheeti kayıt ediyor ben üzerinde uğraştım ama beceremedim açık olmayan sheeti kaydedecek şekilde nasıl düzenlerim
mesala sayfa1 açık ben sayfa2 yi kaydedecem böyle çalıştırırsam hep açık olan sheetdeki bilgileri kaydediyor

Private Sub aktar()
ad = ActiveWorkbook.Name
adr = ActiveWorkbook.Path
Workbooks.Add
ad2 = ActiveWorksheet.Name
Set s1 = Workbooks(ad2)
Workbooks(ad).Activate
ActiveSheet.Copy after:=s1.Sheets(s1.Sheets.Count)
For a = 1 To s1.Sheets.Count - 1
Application.DisplayAlerts = False
s1.Sheets(1).Delete
Next
s1.saveas FileName:="c:\kayıt.xls"
s1.Close
End Sub

 

[Levent Menteşoğlu]

ad2 = ActiveWorksheet.Name

Yukarıdaki satırı aşağıdaki ile değiştirin.

ad2 =sheets(2).Name