I have a formula that pulls from a list of employees via their ID Number.
Employees that are Analysts have Analyst next to their name (Joe Jones, Analyst).
This code only works if the answer is "Analyst"
How can I get it to work with any employee that has Analyst in their Name?
This way I don't have to change the code for every employee.
Private Sub Worksheet_Change(ByVal Target As Range) Set MyPlage = Range("A2:D4800") For Each cell In MyPlage ActiveSheet.Unprotect ("peteamy") Select Case cell.Value Case Is = "Analyst" cell.EntireRow.Font.ColorIndex = 3 ActiveSheet.Protect ("peteamy") End Select End Sub