A simple sort code would look like this

ActiveWorkbook.Worksheets("Sheet4").Sort.SortField s.Add
Key:=Range("C2:C5"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet4").Sort.SortField s.Add
Key:=Range("D2:D5"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet4").Sort
.SetRange Range("A1:D5")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.Apply
End With

Could you post your section of code?
--
If this helps, please remember to click yes.


"Jamie" wrote:

Hi,

I have a worksheet that has multiple tabs in it. Each tabe is formated the
same way and pulls all of its data via the vlookup formula. Within a tab
there are headings such as

A B C D
Provider # Client Name Beds Occupancy

The tab uses the "provider number" to pull in the appropriate data for that
particular client. Within that tab the information is also sorted by county
and then subtotaled. For example: The above layout may have Cuyahoga county
with 5 clients listed. Below the list of clients there will be a row totaling
the clients within cuyahoga only. then there will be a space and the next
county will start, such as Summit county and so on.

What I need to do is sort each county by its occupancy from highest to
lowest. Since the worksheet is so large it will take much to long to manually
sort therefore I was trying to make a macro. The issue I keep running into is
the macro does not remember that I want to sort "column D" by "highest to
lowest." The macro runs once and then the sort function defaults back to
sorting column A by A to Z.

Let me know if you think this is something that can be fixed or if it is
just an Excel glitch that I can't get around.

Thanks,

Jamie