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
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Postado : 20/05/2016 1:26 pm