AutoSort Error

Greetings,

Did some research I found code to create a autosort macro, which should sort of today's date in cell A1, that way I always have the most recent entries at the top of my sheet. It will work fine for a while then all of a sudden it refuses to move the content of cell A5 (the first in the sort) to it's correctly sorted location.

 Range("A5:D200").Sort _
     Key1:=Range("A1"), order1:=xlDescending, Header:=xlGuess, _
     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
     DataOption1:=xlSortNormal

Any help would be greatly appreciated

Hi Joseph header row? I use row 1 - 4 for other info but my sort key is in A1. I'll give xlNo a try, cheers for the info

JosephP - cheers WORKS GREAT NOW!!!! I got to look up xlNo to understand my error. Cheers again!