Application.ScreenUpdating = False ~処理~ Application.ScreenUpdating = True
if Worksheets("Sheet1").AutoFilterMode = False then 'フィルタは適用されていない
if Worksheets("Sheet1").AutoFilterMode = True then 'フィルタは適用されている
Worksheets("Sheet1").Filters(n) 'フィルタの種類(複数の場合有り)