Çalışma kitaplarındaki çalışma sayfalarını yeni çalışma kitabında sıralamak

[AHMETMANAV]

selamun aleyküm
işlerinizde kolaylıklar dilerim.
İlgili sorum şu şeklidedir:
Klasör içinde bulunan çalışma kitapları isme göre a dan z ye artan şekilde sıralanmış olup çalışma kitaplarının içinde bir adet çalışma sayfası mevcuttur ve bu çalışma sayfasının adı bütün çalışma kitaplarında aynıdır ve adı "tarife" dir. Bu çalışma kitaplarındaki tarife isimli çalışma sayfaları ait oldukları çalışma kitabındaki isimle yine isme göre a dan z ye artan olacak şekilde "tarife sıralandı" adında yeni çalışma kitabında sıralamak yapılabilinir mi?

 

[AHMETMANAV]

selamun aleykum
arkadaşlar çalışma saylarını sıralamak için makroyu buldum. tek ihtiyacım diğer çalışma kitaplarındaki çalışma sayfalarını bir kitapta toplamak kaldı.....
yardımcı olabilecek kimse var mı?


sıralama için kod:
Sub sayfasirala()
Application.ScreenUpdating = False
Sheets.Add
ActiveSheet.Move After:=Sheets(Sheets.Count)
Set s1 = Sheets(Sheets.Count)
For a = 1 To Sheets.Count - 1
s1.Cells(a, "a") = Sheets(a).Name
s1.[a:a].Sort Key1:=s1.[a1]
deg = Sheets(a).Name
If IsNumeric(deg) = True Then deg = Val(Sheets(a).Name)
say = WorksheetFunction.Match(deg, s1.[a:a], 0)
Sheets(a).Move Before:=Sheets(say)
Next
Application.DisplayAlerts = False
s1.Delete
End Sub