Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Use this code to turn off the AutoFilter drop-downs

Sub TurnOffAutoFilter()     Worksheets("Sheet1").Select     On Error Resume Next     x = ActiveSheet.autoFilter.range.Areas.count     If Err.Number = 0 Then         ActiveSheet.range("A1").autoFilter     End If     On Error Resume Next End Sub