code for sort

[tuktuk]

what is the code to make a range to sort in a similar manner to the msg box that would pop up to show "Sort anythign that appears to a number"?

the following code sort only the numbers:

Selection.sort Key1:=range("B7"), Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

does that make sense? if my range has zero it put them in the top of the sort since (even tho it is descendign) becasue it doesn't recognize them as a number ..... it i recognizing it as text. ('0)

thanks
Tuk