Selection.Sort Key1:=Range("A152"), Order1:=xlAscending, Key2:=Range( _
"B152"), Order2:=xlAscending, _
Key3:=Range("C152"), Order3:=xlAscending,Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:= xlTopToBottom, _
[B][COLOR=red]DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal[/COLOR][/B]