Split woksheet every 400 lines onto multiple sheets

[snb]

[VBA]Sub M_snb()
For j = 1 To Sheets("sheet1").Cells.SpecialCells(11).Row Step 400
Sheets.Add , Sheets(Sheets.Count)
Sheets("sheet1").Rows(j).Resize(10).Copy Sheets(Sheets.Count).Cells(1)
Next
End Sub[/VBA]