Hello everyone,
I need help modifying the below code. Currently If the value is Blue in one cell, then it puts the word Color in another cell. How do I add onto the code to make it look for Green and Black also?
So if Blue, Green, or Black then the output is Color
'Setup for Speed
'=========================
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'=========================
'Do Work
'=========================
For i = 1 To LastRow
If Range("K" & i).Value = "Blue" Then Range("R" & i).Value = "Color"
Next i
'=========================
'Shut down
'=========================
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Appreciate any help!
Bookmarks