Your code appears to be OK, so based on the tests that I ran, the
problem might be either how you set up your criteria, or the column that you
designate to be filtered, or both. The criteria should consist of the column
header on one row of the criteria range and a data element that is or will be
contained in that column at the time the macro fires. The filter range is
the range that you want data returned from. Since I do not know what you
have in F1 and F2, I can not tell which column you are setting the filter
criteria for, Nor do I know if Range("AbrevList") is the range you want the
filtered data returned from, although I assume it is. If the AbrevList is
also your criteria column, it won't work.

This probably don't help much but, without seeing your sheet, it is the best
I can do.

"Mekinnik" wrote:

I am tring to populate a column of cells when they have focus and all I can
seem to do is populate just one and the kicker is that it only will populate
to the second cell in the reference range

I have a validation list on sheet1, e2 validated with data from
sheet2,a1-a50 and using the code for an advanced filter search I found
online, I can get it to work but only on sheet2,e3 and no others in the
column.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 2 And Target.Column = 5 Then
'calculate criteria cell in case calculation mode is manual
Worksheets("Lists").Range("F2").Calculate
Worksheets("Lists").Range("AbrevList").AdvancedFil ter
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Lists").Range("F1:F2"), _
CopyToRange:=Range("E3"), Unique:=False
End If
End Sub



HELP PLEASE...