With objExcel
.range(.cells(1, 1), .cells(lngMaxRow, lngMaxColumn)).Sort
Key1:="Date",
Header:=xlYes
End With

but this returns "Run-time error '1004': Application defined or object
defined error" and appears to be to do with the .cells references.


Try to remove the dots before "Cells..."
I get "Sub or Function not defined" as Access doesn't understand "Cells"

Ian