this worked for me.

With ActiveWorkbook.Sheets("MarginAnalysis")
.Range("b225:b270").Sort Key1:=.Range("b225"), _
Order1:=xlDescending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End With
--
jb


"bigjim" wrote:

OK, I tried this code:

With ActiveWorkbook.Sheets("MarginAnalysis").Range("b22 5:b270").Select
Selection.Sort Key1:=Range("b225"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End With

Now I'm getting this error:
"Sort reference is not valid. Make sure it's witing the data ou want to
sort and the first sort by box isn't the same or blank.

I'm not sure what that is saying.

Jim

"Jim Cone" wrote:

You are telling Excel to sort the entire sheet in this portion of the code...
Sheets("MarginAnalysis").Cells

The "Key1:=.Range("b225:B270")" portion specifies the column to sort by.

Change .Cells to .Selection if you want to sort the selection.
However, the selection must intersect with column B.
--
Jim Cone
Portland, Oregon USA



"bigjim"

wrote in message
I'm using excel 2003. I want to sort data formatted as text in a column.
Most of the cells in the column are blank. I am using the following code:

With Sheets("MarginAnalysis")
..Cells.Sort Key1:=.Range("b225:B270"), _
Order1:=xlAscending, Header:=xlNo, _
MatchCase:=False, Orientation:=xlTopToBottom
End With

The error I get is "This operation requires the merged cells to be
identically sized. " There are no merged cells anywhere in the range
selected. When I go to the worksheet "marginanalysis" after the program
stops the range b225:b282 is highlighted.??
I'm lost and any help would be appreciated.

Jim