Clean up Code.....Running slow

[JaredMcCullough]

Been a while....I threw this together real quick it gets the job done but processes kinda slow was wondering if anyone could streamline it so it doesnt have a delay in processing

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
lRow = Range("F" & Rows.Count).End(xlUp).Row
Set MR = Range("F4:F" & lRow)
    For Each cell In MR
    
    If cell.Value = "NIS" Then Cells(cell.Row, "A").Interior.Color = vbYellow
    
    If cell.Value = "F" Then Cells(cell.Row, "A").Interior.Color = vbRed
    
    If cell.Value = "LR" Then Cells(cell.Row, "A").Interior.Color = vbGreen
    
    If cell.Value = "A" Then Cells(cell.Row, "A").Interior.Color = vbWhite
    
    If cell.Value = "B" Then Cells(cell.Row, "A").Interior.Color = vbWhite
    
    If cell.Value = "C" Then Cells(cell.Row, "A").Interior.Color = vbWhite
    
    If cell.Value = "D" Then Cells(cell.Row, "A").Interior.Color = vbWhite
    Next cell
   
    
    For Each cell In Range("O4:U5000")
 
        If cell.Value = "P" Then
            cell.Interior.Color = vbGreen
        End If
        If cell.Value = "F" Then
            cell.Interior.Color = vbRed
        End If
        
        If cell.Value = "" Then
            cell.Interior.Color = vbWhite
        End If
    Next cell
End Sub

 

[mole999]

with application.
.screenupdating = false
.enableevents = false
end with

before your code, then reverse the false to true when the code ends, or you could just create CFs for the columns (bear in mind there are a million rows now, so )

 

[jolivanes]

In addition to mole999's suggestion.

Worksheet.Change Event (Excel)

Insert

If Target.Column = 6 Then

Instead of this

If cell.Value = "A" Then Cells(cell.Row, "A").Interior.Color = vbWhite
If cell.Value = "B" Then Cells(cell.Row, "A").Interior.Color = vbWhite
If cell.Value = "C" Then Cells(cell.Row, "A").Interior.Color = vbWhite
If cell.Value = "D" Then Cells(cell.Row, "A").Interior.Color = vbWhite

you could use this

If cell.Value = "A" Or cell.Value = "B" Or cell.Value = "C" Or Cell.Value = "D" Then Cells(cell.Row, "A").Interior.Color = vbWhite

Don't know if that'll make it any faster though

For Each cell In Range("O4:U5000")    '<----- Why 5000?

If your last value is in cell R4750 you are checking 7 x 250 empty cells just for the heck of it.