Trouble with four key Sort Routine - Excel 2007

This remained unsolved from a previous post so I am hoping some guru might pick up on it and solve it.

I have the sort routing below and despite the fact that I am using Excel 2007 the VBA fails on Key4 with "Compile Error: Named Argument not found"

Range(Cells(2, 1), Cells(LastRow, 18)).Sort Key1:=Range("A1"), Order1:=xlDescending, _
Key2:=Range("J1"), Order1:=xlDescending, Key3:=Range("H1"), Order1:=xlDescending, _
Key4:=Range("Q1"), Order1:=xlDescending, Header:=xlYes

At present I am forced to use the rather long winded Macro generated code and would like to simplify it.