Macro Filter Active Range

**ebbo** · 03-18-2010, 06:15 AM

Hello,

I need help to adjust the following macro so that its dynamically selects the range rather then having fixed numbers

Sub Macro4()
    Range("A2").Select
    Range("A1:C30131").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Sheet3").Range("A1:A144"), Unique:=False
End Sub

So A1:C30131 could be anything
and A1:A144 could also be anything

I need the macro to detect the active range and filter based on range. Does this make sense?

Thanks

**Domski** · 03-18-2010, 07:42 AM

Try:

Sub Macro4()
    Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Sheet3").Range("A1").CurrentRegion, Unique:=False
End Sub

Dom