Sub SkipBlanks() Dim ConstantCells As Range Dim FormulaCells As Range Dim cell As Range
On Error Resume Next
Set FormulaCells = Selection.SpecialCells(xlFormulas)
For Each cell In FormulaCells If cell.Value > 0 Then
cell.Interior.Color = vbRed End If
Next cell End Sub