Error on Autofilter

[JackDanIce]

Hi,

On the following code, can someone explain why it's failing with error after the line in red is excuted with error message

"Run-time error '424' Object required"

If ActiveSheet.AutoFilterMode Then .AutoFilter = False
    If SecurityLevel < 2 Then
        With Range(Range(ActiveCell.Offset(-1, 0), ActiveCell.End(xlToRight)), ActiveCell.End(xlDown))
            .AutoFilter = True
        End With
    End If

I think it's something to do with the range I'm trying to select and apply autofilter to but I'm not sure how to achieve what I want.

Thanks,
Jack

 

[Andrew Poulsom]

You could try using ActiveCell.CurrentRegion.

 

[RichardMGreen]

Try:-

If ActiveSheet.AutoFilterMode Then .AutoFilter = False
    If SecurityLevel < 2 Then
        With Range(ActiveCell.Offset(-1, 0), ActiveCell.End(xlToRight)
            .AutoFilter = True
        End With
    End If

I could be wrong but I think you only need to select the headers to set the autofilter.

 

[JackDanIce]

Thank you Andrew and Richard, am now using:

    If SecurityLevel < 2 Then
        If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
        ActiveCell.CurrentRegion.AutoFilter
    End If

Richard - have had problems before when only selecting the "header" row to filter for results, selecting the whole range I want filtered ensures it is that area only. I may be wrong about this, but it works so I'm happy!

Thanks again,
Jack