VBA Code to Select Filtered Rows in multiple Columns

[prezftb09]

I am trying to get code to select all the filtered rows from Y to AO minus the headers. Currently here is my code:

With ActiveSheet lr = .Columns("Y:AO").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
If lr > 1 Then .Range(.Cells(2, "Y"), .Cells(lr, "AO")).Select
End With

This code works perfectly when no rows are filtered out, however whenever I have rows filtered it doesn't go to the then portion of the code. Any suggestions?

 

[Fluff]

How about

With ActiveSheet
   Intersect(.autofilter.Range.Offset(1), .Range("Y:AO")).Select
End With

 

[prezftb09]

Actually nvm this looks like it worked. Thanks