Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Process the formulas

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