The characters & case are an exact match so it's not that...
Here's what I have so far...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$8" Then
Select Case Target.Value
Case Is = "Full"
With ActiveSheet.Shapes("Rectangle 1")
.Fill.ForeColor.RGB = RGB(0, 118, 115)
.TextFrame.Characters.Font.Color = RGB(255, 255, 255)
End With
Case Is = "Empty"
With ActiveSheet.Shapes("Rectangle 1")
.Fill.ForeColor.RGB = RGB(0, 158, 154)
.TextFrame.Characters.Font.Color = RGB(255, 255, 255)
End With
Case Is = "Quarter"
With ActiveSheet.Shapes("Rectangle 1")
.Fill.ForeColor.RGB = RGB(127, 127, 127)
.TextFrame.Characters.Font.Color = RGB(255, 255, 255)
End With
Case Is = "Half"
With ActiveSheet.Shapes("Rectangle 1")
.Fill.ForeColor.RGB = RGB(138, 0, 0)
.TextFrame.Characters.Font.Color = RGB(255, 255, 255)
End With
Case Is = "NA"
With ActiveSheet.Shapes("Rectangle 1")
.Fill.ForeColor.RGB = RGB(255, 255, 255)
.TextFrame.Characters.Font.Color = RGB(166, 166, 166)
End With
End Select
End If
If Target.Address = "$F$8" Then
Select Case Target.Value
Case Is = "Full"
With ActiveSheet.Shapes("Rectangle 5")
.Fill.ForeColor.RGB = RGB(0, 118, 115)
.TextFrame.Characters.Font.Color = RGB(255, 255, 255)
End With
Case Is = "Empty"
With ActiveSheet.Shapes("Rectangle 5")
.Fill.ForeColor.RGB = RGB(0, 158, 154)
.TextFrame.Characters.Font.Color = RGB(255, 255, 255)
End With
Case Is = "Quarter"
With ActiveSheet.Shapes("Rectangle 5")
.Fill.ForeColor.RGB = RGB(127, 127, 127)
.TextFrame.Characters.Font.Color = RGB(255, 255, 255)
End With
Case Is = "Half"
With ActiveSheet.Shapes("Rectangle 5")
.Fill.ForeColor.RGB = RGB(138, 0, 0)
.TextFrame.Characters.Font.Color = RGB(255, 255, 255)
End With
Case Is = "NA"
With ActiveSheet.Shapes("Rectangle 5")
.Fill.ForeColor.RGB = RGB(255, 255, 255)
.TextFrame.Characters.Font.Color = RGB(166, 166, 166)
End With
End Select
End If
End Sub