Copy Required Sheet N Number of Times

Copy required sheet into new Workbook

Through this program we can copy required sheet in new workbook

Copy required sheet into new Workbook - Number of Times

Select the required sheets to copy

Mention the number of Workbooks required with the selected sheets

Copy required sheet N number of times

Copy required sheets 25 times

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 25
ThisWorkbook.Sheets("Introduction").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "week" & i
Next
End Sub

Through this program we can copy required sheet N number of times based on our requirement

Copy all sheets from one workbook to another

Private Sub CommandButton1_Click()
Dim NumberOfSheets As Integer
NumberOfSheets = Sheets.Count
Dim wkb As Workbook
Set wkb = Workbooks.Add
For i = 1 To NumberOfSheets
ThisWorkbook.Sheets(i).Copy after:=wkb.Sheets(wkb.Sheets.Count)
ActiveSheet.Name = ThisWorkbook.Sheets(i).Name & " copy"
Next
End Sub