Formatação clara da faixa VBA

Sub ClearFormats()
      range("a1:c1").clearformats
end sub
Thoughtless Tapir