paste to 7 new sheets

[288enzo]

How would I go about copying one sheet

Sheets("Dealer Status").Cells.Copy

and paste it into 7 new sheets without having to write

Sheets.Add Count:=7
Sheets("Sheet7").Paste
Sheets("Sheet6").Paste
Sheets("Sheet5").Paste
Sheets("Sheet4").Paste
Sheets("Sheet3").Paste
Sheets("Sheet2").Paste
Sheets("Sheet1").Paste

Is there a more efficient way or is what I have perfectly okay?

Thank you

 

[johnnyL]

How about this:

Sub CopySheetxTimes()
'
    Dim x As Long
'
    For x = 1 To 7                                        ' Create 7 duplicate sheets
        ActiveSheet.Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = "Sheet" & x
    Next
End Sub

 

[288enzo]

How about this:

Sub CopySheetxTimes()
'
    Dim x As Long
'
    For x = 1 To 7                                        ' Create 7 duplicate sheets
        ActiveSheet.Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = "Sheet" & x
    Next
End Sub

 

[288enzo]

How about this:

Sub CopySheetxTimes()
'
    Dim x As Long
'
    For x = 1 To 7                                        ' Create 7 duplicate sheets
        ActiveSheet.Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = "Sheet" & x
    Next
End Sub

Thank you, I didn't realize that your code also reacted the new sheets. That saved me another line of code, thank you very much for the help.

 

[johnnyL]

reacted?