Limpar conteúdo de células num Range que contém fórmulas

Se pretendermos limpar o conteúdo de algumas células com valores sem ter que as identificar num determinado Range (por exemplo A1:J50), o qual também contém células com fórmulas e que não queremos nem podemos apagar, podemos utilizar o seguinte código:

 

 

 Sub Teste ()

       Range("A1:J50").SpecialCells(xlCellTypeConstants, 23). ClearContents

End Sub

 

Para se ver mais sobre o Método SpecialCells, pode aceder-se a: 

 

http://www.ozgrid.com/VBA/special-cells.htm

 

e a:

 

http://dmcritchie.mvps.org/excel/proper.htm