Is Auto Filter On

[Guest]

Hi,

Thanks in advance.

Need help on the following:-

1) is auto filter on if so turn it off

I will be doing other code in here between 1 & 2



2) if last active row is less than row 4 don't turn auto filter on. All
others turn auto filter on


Thanks

Trev

 

[Norman Jones]

Hi Trev,

Try using the AutoFilterMode property.

For example, try:

'=============>>
Public Sub Tester()

Dim SH As Worksheet

Set SH = ActiveSheet '<<=== CHANGE

With SH
If .AutoFilterMode Then
.AutoFilter.Range.AutoFilter
End If
End With
End Sub
'<<=============

 

[Dave Peterson]

Or just turn it off

activesheet.autofiltermode = false

It won't hurt if it's already off.

 

[Guest]

Thanks Dave,

Worked a treat.

Plus I have solved part 2

Thanks once again

Trev