Still relevant after almost 4 years, this line fixed the error in Excel 2010 for me as well.
I've put this in the next line after the .Sort.SortFields.Add bit, and gone is the error message

Thanks!