Quick way to add more sheets to Guardian
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