Need help modifying a macro

  • Thread starter Thread starter dave
  • Start date Start date
D

dave

Hi. I have a maco that works of a master sheet and creates a new
worksheet for every block of 25 records.

FirstSheetname = ActiveSheet.Name
Lastrow = Range(Cells(1, 1), Cells(Rows.Count, 1)).End(xlDown).Row
For i = 2 To Lastrow Step 25
NewSheetName = Sheets(FirstSheetname). _
Range("C1").Offset(rowoffset:=i - 1, columnoffset:=0) + "-"
NewSheetName = NewSheetName + Sheets(FirstSheetname).Range("C25"). _
Offset(rowoffset:=i - 1, columnoffset:=0)
Sheets.Add
ActiveSheet.Name = NewSheetName
Sheets(FirstSheetname).Rows("1:1").Copy _
Destination:=Worksheets(NewSheetName).Range("A1")
Sheets(FirstSheetname).Rows("1:25"). _
Offset(rowoffset:=i - 1, columnoffset:=0).Copy _
Destination:=Worksheets(NewSheetName).Range("A2")

I would like to change this so that a new worksheet is created that
has all rows where the data in column B is the same (data is alredy in
order by column B).

Any ideas?

Thanks.
 
This looks like an EXCEL question. You should post your question in an EXCEL
newsgroup. This newsgroup is for ACCESS.
 
Back
Top