I'm trying to create a macro which will change the fill color of a cell based on text displayed in a cell. If the text displayed is Red, I'd like the cell fill color to be red, if text is yellow change the cell fill color to yellow, if green change the color to green. Below is what I've written. The code currently is changing the cell fill color to red no matter the value. Can someone assist?

Sub SetActive()

If ActiveCell = "Red" Then
ActiveCell.Interior.Color = 255 ' Color cell interior red
ElseIf ActiveCell = "Yellow" Then
ActiveCell.Interior.Color = 49407 ' Color cell interior orange
ElseIf ActiveCell = "Green" Then
ActiveCell.Interior.Color = 65280 ' Color cell interior green
End If

End Sub