Excel de istenilen sayfaları dışarı kaydetme

[chakistes]

merhaba arkadaşlar aşağıdaki kod ile tüm sayfaları dışarı kaydediyor fakat benim istediğim sayfa1 den sayfa 6 ya kadar dışarı kaydetmesini istiyorum. Bu konuda yardıma ihtiyacım var

Application.DisplayAlerts = False
ThisWorkbook.Sayfa1.CheckCompatibility = False

ThisWorkbook.SaveAs Filename:=ThisWorkbook.Sayfa1.Path & "\" & TextBox1.Text & ".XLSX", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
Application.Visible = False
MsgBox ("MASA ÜSTÜNE " & TextBox1.Text & " OLARAK KAYIT İŞLEMİ TAMAMLANDI"), vbInformation, " ------------"

 

[Korhan Ayhan]

Deneyiniz.

Sub Test()
Dim File_Path As String
File_Path = ThisWorkbook.Path & "\"
Sheets(Array("Sayfa1","Sayfa2","Sayfa3","Sayfa4","Sayfa5","Sayfa6")).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= File_Path & TextBox1.Text & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
MsgBox "Dosyanız masaüstüne " & TextBox1.Text & " ismiyle kayıt edilmiştir.", vbInformation
End Sub

 

[chakistes]

teşekkür ederim tam istediğim gibi