Cole em um modulo o codigo abaixo

Sub LimparFormatação()

Dim WSPlan As Worksheet
Dim Nome As String

Application.DisplayAlerts = False

On Error Resume Next

For Each WSPlan In Worksheets

Nome = WSPlan.Name

 WSPlan.Cells.FormatConditions.Delete

Next

Application.DisplayAlerts = True

End Sub

Muitíssimo obrigado Mprudencio!!!!

Fica c Deus..

Abs,