Private Sub Stripe()

Dim objCht As ChartObject
Dim i As Integer
Dim rngCnt As Range
Dim rngCell As Range

With Sheets(1)
    Set rngCnt = .Range(.Range("E2"), .Range("E65536").End(xlUp))
    
i = 1

    For Each rngCell In rngCnt
        If rngCell.Offset(, 1) = "Fail" Then
            ActiveSheet.ChartObjects("Chart 1").Activate
            ActiveChart.SeriesCollection(1).Points(i).Select
            Selection.Fill.Patterned Pattern:=msoPatternWideUpwardDiagonal
        End If
        i = i + 1
    Next rngCell
End With
End Sub