dim lOrder as Long, rng as Range

lOrder = xlAscending

set rng = Range("C1")

Range("A1").Currentregion.Sort Key1:=rng, _
Order1:=lOrder, Header:=xlYes

--
Regards,
Tom Ogilvy


"cubbybear3" wrote in message
ups.com...
I know how to set the "KeyX:=Range" using a variable, but is there any
way I can also set the "OrderX" value (either xlAscending or
xDecending) using a variable?
-pb