Quick way to add more sheets to Guardian

[nigelk]

https://youtu.be/OVjyJUE6fBk

[sa7med]

That's how I was doing it but eventually did it enough times that I wrote some simple code to do it. Change the 56 to the desired number of sheets.

Code: Select all

Sub copyBetAngelSheets()

Dim x As Integer

For x = 2 To 56 Step 1
    If x = 2 Then
    Worksheets("Bet Angel").Copy After:=Worksheets("Bet Angel")
    Else
    Worksheets("Bet Angel").Copy After:=Worksheets("Bet Angel (" & x - 1 & ")")
    End If
Next
Worksheets("Bet Angel").Activate
End sub