Check if a cell is outside a range with active filter

[neqkeet]

Hi!

I am using a macro, which filters data in a column of activecell.

ActiveCell.CurrentRegion.AutoFilter Field:=ActiveCell.Column - ActiveCell.CurrentRegion.Cells(1, 1).Column + 1, Criteria1:=ActiveCell.Value

Assume you have two or more data ranges (tables) on one sheet, while one of that ranges has autofiler turned on.
When running a macro I want to check whether the activecell is outside the range with autofilter and if it is, cancel autofilter and aplly it to the current region of activecell. Is it possible?

 

[neqkeet]

And most importantly, is it possible to do so without formatting every range as a table?

 

[Fluff]

How about

Sub ChkFilter()
   If Intersect(ActiveCell, ActiveSheet.AutoFilter.Range) Is Nothing Then
      ActiveSheet.AutoFilterMode = False
      ActiveCell.CurrentRegion.AutoFilter
   End If
End Sub

 

[neqkeet]

Perfect. Thank you!

 

[Fluff]

Glad to help & thanks for the feedback