Este fórum está sendo desativado

[Angra]

O osvaldomp, criou a solução pretendida no tópico "formatar baseado em valor já formatado" mas por falha minha esqueci de perguntar como tirar a formatação quando clicar no botão reset.
Código do reset:
Sub Resetar_1()
Application.EnableEvents = False
Range("B:D,CB:CD").Interior.ColorIndex = -4142 'aqui não deveria tirar a formatação geral
Columns("AM:AR").ClearContents
Application.EnableEvents = True
End Sub

[osvaldomp]

Você quer pintar as células AM4:AR30 de preto, é isso?
Se sim, acrescente a segunda linha abaixo.

Código: Selecionar todos

...
...
Columns("AM:AR").ClearContents
Range("AM4:AR30").Interior.Color = vbBlack
...
...

[Angra]

Perfeito, era isso mesmo. Muito agradecido.