Dejar celdas vacías en lugar de 0 y ""

Gracias por responderme,
la función ESBLANCO que prueba si la celda está realmente vacía me dice que no está vacía y necesito ver los 0.

Hola PHILOU10120,
Te agradezco por ayudarme,
Lo que quiero es que las celdas que contengan un 0 o tengan en una fórmula "" queden realmente vacías.
Necesito visualizar los 0.
He encontrado esto en Internet, pero no sé si responde a mi solicitud ni cómo usarlo:

Hacer que las celdas estén vacías en lugar de 0 y "".

'El código 32 es el espacio "normal"
Sub EffaceCar32()
For Each X In Selection
If X.Value = Chr(32) Then X.ClearContents
Next
End Sub

'El código 160 es el espacio no rompible.
Sub EffaceCar160()
For Each X In Selection
If X.Value = Chr(160) Then X.ClearContents
Next
End Sub

Sub EffaceCar160Car32()
For Each X In Selection
If X.Value = Chr(160) Or X.Value = Chr(32) Then X.ClearContents
Next
End Sub

¿Alguien que me guíe?
Gracias a ustedes.