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
11 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 co
see if it helps
Sub SORT_DA()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim lA, I As Long
Dim a As Range
Set a = Range("D1")
For lA = 1 To WorksheetFunction.CountIf(Columns(4), "HD")
Set a = Columns(4).Find(What:="HD", After:=a, LookIn:=xlValues
