Clear Effect Macro : this macro not clearing the block shadow, variable outline and some others, please update.

Sub ClearEffectsInSelection()
If ActiveSelectionRange Is Nothing Then Exit Sub
Dim Shape As Shape
Dim Shapes As ShapeRange
Set Shapes = _
ActiveSelectionRange.Shapes.FindShapes(Query:="@com.Effects.Count > 0")
For Each Shape In Shapes
ClearEffectsInShape Shape
Next
End Sub
Private Sub ClearEffectsInShape(ByVal Shape As Shape)
Dim i As Long
For i = 1 To Shape.Effects.Count
Shape.Effects(i).Clear
Next
End Sub