Range("Database").Select
Selection.Sort Key1:=Cells(selection.Row,SortColumn), _
Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

assume sortcolumn is the absolute column number (J would be 10 for
instance).

--
Regards,
Tom Ogilvy


TBA wrote in message
...
I have a simple sort I wish VBA to accomplish. The code looks something
like this:

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

Range("A1").Select

The only problem is that my Key1 range [Key1:=Range("???")] will not
always
be in the same column depending on what table I'm working with. However,
I
do have a variable SortColumn (an integer) that indicates what column my
sort key is in, and I also have a variable SortHeader (string) that
indicates what column header I wish to sort by. SortColumn will always be
the column number that SortHeader is in, obtained through another bit of
simple code. Can either of these variables be used in place of the ??? in
the key range? At the moment I don't have access to Excel, otherwise I'd
test this myself. Does this make any sense?

All suggestions welcome. Thanks!

-gk-