Hi,

i need to sort my worksheet in my VBA code i used the code below but it
doesn't work:

RCnt = Cells(Rows.Count, 2).End(xlUp).Row
Range("A1:Q" & Trim(Str(RCnt + 2))).Sort Key1:=Range("A2"),
Order1:=xlAscending, Key2:=Range _
("B2"), Order2:=xlAscending, Key3:=Range("E2"), Order3:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal

any help would be appreciated.

Thanks,
--
Farhad Hodjat