Sub fileterAuto() If ActiveSheet.AutoFilterMode Then ActiveSheet.autoFilter.range.autoFilter End If End Sub