Hi

I am working on programing VBA to make PatternDarkUpwardDiagonal of my bar
chart if date in range Rng7 more than 3 days

But I have error of date mismatch of S

Below is my code

Need your help to figure out the problem

Thanks
Daniel

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''
Dim Rng7 as range
Dim S as integer
Dim Cnt7 as integer

For Each Rng7 In Range(.Cells(2, 6), .Cells(20, 6))

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

Pts.HasDataLabel = True


S = DateDiff("d", Now, Rng7.Value)


If S 3 Then

Pts.Fill.Patterned Pattern:=msoPatternDarkUpwardDiagonal

End If
Cnt7 = Cnt7 + 1

Next Rng7