Can anyone tell me how to automate a sort in excel? I've tried several varieations on the macro code but can't quite seem to get it right.

Here's my latest try which doesn't work.

oSheet.Range("A6:W155").Sort(_Key1:=oSheet.Range("D6"))

Thanks in advance for any help.