try:
1.add one coulmn ( assume it would be 10th column ) with row number
paste into module
For m = 1 To ActiveSheet.UsedRange.Rows.Count Step 50
Selection.AutoFilter Field:=10, Criteria1:="" & m - 1,
Operator:=xlAnd, Criteria2:="<" & m + 49
Range("a1").CurrentRegion .Copy
Sheets.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs your name
ActiveWorkbook.Close
ActiveSheet.ShowAllData
Next m


mcg