求教各位大佬工作簿拆分

http://club.excelhome.net/forum.php?mod=viewthread&tid=1565831&extra=page%3D3&mobile=2

Sub test()
Application.ScreenUpdating = False
Set wb = ThisWorkbook
n = 10
For i = 1 To Sheets.Count Step n
wb.Sheets(i).Copy
With ActiveWorkbook
For j = 1 To n - 1
wb.Sheets(i + j).Copy , .ActiveSheet
Next
.SaveAs "e:\excel\test\" & i & "-" & i + n - 1, 51
.Close
End With
Next
Application.ScreenUpdating = True
End Sub