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