Hi Guys Wow, they work like magic. Thanks Ashish and Rajan.
Some more new knowlege for me. Great work and thanks Charlie Harris On Aug 26, 5:58 pm, "Rajan_Verma" <rajanverma1...@gmail.com> wrote: > Try this: > > Sub SortList() > > On Error Resume Next > > Dim Record As Integer > > Record = ActiveSheet.UsedRange.Rows.Count > > For i = 1 To Record > > If Range("D" & i).Value = "HD" Then > > Range("D" & i + 1).Select > > ActiveCell.Resize(ActiveCell.End(xlDown).Row, > ActiveCell.End(xlToRight).Column).Sort Range("F" & i) > > End If > > Next > > End Sub > > From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] > On Behalf Of Cab Boose > Sent: Friday, August 26, 2011 6:41 AM > To: excel-macros@googlegroups.com > Subject: $$Excel-Macros$$ Multiple sorts on one Sheet > > Hi > > On attached workbook there is a sheet tha has multiple lists with empty > rows in between. No of empty rows can vary. > > What I am trying to do is sort each list on the list into say into col F > ascending order. Once the first list sorted vba takes it onto the next > list, until all lists have been sorted. The empty rows still remain. > > Each list is always started with a heading row which with a ' HD' ref in the > same row D. Is this the best reference for finding each list. > > In plain English > > go to first entry of HD > > xldown to last entry in that list > > data sort by col F > > next list > > Your help would be appreciated. > > Thanks > > Charlie Harris > > -- > ---------------------------------------------------------------------------- > ------ > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links > :http://twitter.com/exceldailytip > 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials athttp://www.excel-macros.blogspot.com > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below > linkhttp://www.facebook.com/discussexcel -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel