Условное форматирование по гистограмме

Sub ggggg(cCell As Range)
    
    cCell.FormatConditions.AddDatabar
    cCell.FormatConditions(cCell.FormatConditions.Count).ShowValue = True
    cCell.FormatConditions(cCell.FormatConditions.Count).SetFirstPriority
    With cCell.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueFormula, newvalue:=cCell.Offset(0, -1)
        .MaxPoint.Modify newtype:=xlConditionValueFormula, newvalue:=cCell.Offset(0, -1) * 3
    End With
    With cCell.FormatConditions(1).BarColor
        .Color = 13012579
        .TintAndShade = 0
    End With
    cCell.FormatConditions(1).BarFillType = xlDataBarFillSolid
    cCell.FormatConditions(1).Direction = xlContext
    cCell.FormatConditions(1).NegativeBarFormat.ColorType = xlDataBarColor
    cCell.FormatConditions(1).BarBorder.Type = xlDataBarBorderNone
    cCell.FormatConditions(1).AxisPosition = xlDataBarAxisAutomatic
    With cCell.FormatConditions(1).AxisColor
        .Color = 0
        .TintAndShade = 0
    End With
    With cCell.FormatConditions(1).NegativeBarFormat.Color
        .Color = 255
        .TintAndShade = 0
    End With
    
End Sub

Public Sub знач()
 
Dim cCell As Range
For Each cCell In ActiveWindow.RangeSelection
    Call gree(cCell)
Next
 
End Sub

Public Sub ййййй()
 
Dim cCell As Range
For Each cCell In Selection
    Call green(cCell)
Next
End Sub