Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Turn onoff the AutoFilter drop-downs

Sub TurnOnAutoFilter()     ' Turn on AutoFilters     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