Command Button to make multiple duplicate worksheets
 

HI! I have created a workbook with 10 worksheets and on sheets (1,2,10,4 and
6) and have put a Command Button with this Code:

Private Sub CommandButton1_Click()
Worksheets("Extra Earned Income Methd 1").Visible = True
Sheets("Extra Earned Income Methd 1").Select

Worksheets("Extra Earned Income Methd 1").Visible = True
Worksheets("family totals").Range("A5").EntireRow.Hidden = False
End Sub

This works great to duplicate just one time per sheet, but is there a way to
have it work where users can click the command Button any number of times to
generate numerous multiple duplicate worksheets and still have the 2nd part
of my code work where the extra row is inserted in the the worksheet titled
"Family Totals"?

Any help would be greatly appreciated!!

~Roxy