excel sayfalarını ayrı excel dosyası olarak kayıt etme

[cansuyu66]

Merhabalar,

yaklaşık 30 sayfalı bir Excel dosyam var. Her sayfayı ayrı bir excel dosyası olarak kayıt etmek için basit bir yol var mı?
Yoksa tek tek taşı veya kopyaladan mı gitmem gerekir?

 

[u.L.a.s]

Sub sayfalari_ayir_kaydet()
Dim Sheet As Worksheet, SheetName$, MyFilePath$, N&
MyFilePath$ = ActiveWorkbook.Path & "\" & _
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
With Application
.ScreenUpdating = False
.DisplayAlerts = False
On Error Resume Next
MkDir MyFilePath
For N = 1 To Sheets.Count
Sheets(N).Activate
SheetName = ActiveSheet.Name
Cells.Copy
Workbooks.Add (xlWBATWorksheet)
With ActiveWorkbook
With .ActiveSheet
.Paste
.Name = SheetName
[A1].Select
End With

.SaveAs Filename:=MyFilePath _
& "\" & SheetName & ".xls"
.Close SaveChanges:=True
End With
.CutCopyMode = False
Next
End With
Sayfa1.Activate
End Sub