I want to compare today date with date in a column (column name:
"date_last_op") and fill the bar chart with pattern if 3 days but alway
have error at
Set Rng2.Value = (DateDiff(TODAY, "date_last_op", "d"))

Don't know how to fix. Need your help. Please respond with your sugestion
thanks
Daniel

------------------------------------

DIM Rng2 As range
DIM Cnt2 AS interger
DIM S AS interger

For Each Rng2 In Range(.Cells(2, 6), .Cells(r, 6))

Set Pts = ActiveChart.SeriesCollection(1).Points(Cnt2)

Set Rng2.Value = (DateDiff(TODAY, "date_last_op", "d"))


If Rng2.Value 3 Then


Pts.Fill.Patterned Pattern:=msoPatternLightUpwardDiagonal

End If
Cnt2 = Cnt2 + 1
Next Rng2