Try this (untested), you need then to set the range that you are tryin
to sort

Sub Macro1()
'
' Macro1 Macro

Range("A2:A25").Select

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending
Header:=xlGuess, OrderCustom:=1, MatchCase:=False
Orientation:=xlTopToBottom

End Su

--
Simon Lloy
-----------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...nfo&userid=670
View this thread: http://www.excelforum.com/showthread.php?threadid=26637