try
Sub sortsortrange()
Range("SortRange").Sort Key1:=Range("SortRange"), _
Order1:=xlAscending
End Sub


--
Don Guillett
SalesAid Software

"Terry Bennett" wrote in message
...
I'm sure this is a very easy one but I'm not too well versed on Macros /
VBA.

I have a worksheet with ever expanding data - rows at the bottom of the
data are continually added. I have a simple macro that sorts all of the
data according to preset parameters and selects the next blank cell in
column A, ready for more data:

Sub Macro5()
Range("SortRange").Select
Selection.Sort Key1:=Range("SortRange"), Order1:=xlAscending, Header:=
_
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
Do Until ActiveCell.Value = IsEmpty(True)
ActiveCell.Offset(1, 0).Activate
Loop
End Sub

When running the Macro, this leaves all of the cells in the range
'selected' (ie; coloured-over). What do I need to add to the Macro to
just select the cell in Column A and remove the highlighting from all the
other cells?

Thanks.