请问来自怎么用vb做宏，为一个excel工作表建立多个副本

Sub Macro1() Sheets(sheet1).Move before:=Sheets(1) For i = 1 To 10 Sheets(Sheet1).Copy before:=Sheets(2) Sheets(2).Name = 10 - i + 1 Next End Sub