Ok, I can't read ...

Dim year_start As Date, last_row As Integer
year_start = DateValue("1/1/" & Year(Date))
Range("a1").Activate

ActiveSheet.Range("A1").AutoFilter _
Field:=1, _
Criteria1:="<" & year_start

Application.SendKeys ("{DOWN}")

last_row = ActiveCell.row - 1
Selection.AutoFilter

why doesn't this sendkeys ... do a DOWN arrow?


Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)