I had sorting code that was working before, but not now.
Can anyone please see if anything is wrong with this sort code?

    Range("RangeA").Select    
    Selection.Sort Key1:=Range("A20"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
Thanks!

Rows are being sorted like this now:

ColumnA

BBB ...
AAA ...
BBB ...
BBB ...