The range in Key1 is not full qualified,
try this:
Sheets(1).Range(SortRange1).Sort _
Key1:=Sheets(1).Range(CellToSort), _
Order1:=xlAscending, Header:=xlYes

Helmut.

"Francisco" schrieb im Newsbeitrag
...
On Excel 2003 it works perfectly, on Excel 2007 I have error 1004 "sort
method of range class failed".


Sub SortSalary(CellToSort As String, SortRange1 As String)
Sheets(1).Range(SortRange1).Sort Key1:=Range(CellToSort),
Order1:=xlAscending, Header:=xlYes
End if


Is it a bug on Excel 2007?