Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        If .Column <> 23 Or .Cells.Count > 1 Then Exit Sub
    End With
    Application.ScreenUpdating = False
    
    LastRow = Cells(Rows.Count, 23).End(xlUp).Row - 3
    
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveChart.SeriesCollection(1).Select
    dtRow = 4
    
    For I = 1 To LastRow
    With ActiveChart.SeriesCollection(1).Points(I).Format.Fill.ForeColor
        Select Case Range("W" & dtRow).Value
            Case 0.7 To 1
                .RGB = RGB(122, 184, 0)
            Case 0.2 To 0.69
                .RGB = RGB(240, 171, 0)
            Case 0.1 To 0.19
                .RGB = RGB(239, 48, 36)
            End Select
    End With
    dtRow = dtRow + 1
    Next I
Target.Select
Application.ScreenUpdating = True
End Sub
 

With Application
   .Volatile    
   .ScreenUpdating = True  
   .Calculation = xlCalculationAutomatic    
End With