Hi yogeshyl, the code below will just sort the column only.

Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers




Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***