Excel: Obtener la formula de una celda, no su valor

[Roosvel]

saludos, tengo una macro que me permite ocultar las columnas que tienen valor cero de un rango C4P4, pero el problema es que solo reconoce celdas en las cuales no existe ninguna informacion, no asi en las celdas en las cuales existe un aformula que me da valor cero.

Sub FILTROHORIZONTAL()
Range("B4:O4").Select
Dim C As Range
For Each C In Selection
If IsEmpty(C) Then C.ColumnWidth = 0
Next C
Range("A1").Select
End Sub

favor ayuda, creo que el problema esta en IsEmpty