【マクロ・VBA】オートフィルタを解除する／指定した範囲の色を削除する

Sub フィルタ解除()

If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If

End Sub

Sub フィルタ解除()
Range("A1").AutoFilter  
End Sub

Sub 色削除()

Cells.ClearFormats
'Range("A1:D3").ClearFormats

End Sub