First, there are problems with that code. Sorting a single cell is a bit of a waste. Plus the keys of a sort have to be inside the range sorted.
Here is an example of how to assign ranges to variables and use them in a sort
Code:Dim oneRange as Range Dim aCell as Range Set oneRange = Range("A1:G10") Set aCell = Range("B1") oneRange.Sort Key1:=aCell, Order1:=xlAscending, Header:=xlYes