Right-click on the sheet tab and "View Code"

Copy/paste the code below into that module.

Edit the range to suit.

Alt + q to return to Excel.

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "H1:H10"    '<=== change to suit

   check_words = Array("advanced", "expert", "beginner", _
                                   "none",  "intermediate")
   On Error GoTo ws_exit:
   Application.EnableEvents = False
   If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
       With Target
           For i = LBound(check_words) To UBound(check_words)
           If InStr(1, .Value, check_words(i)) Then
               Select Case i + 1
                   Case 1: .Interior.ColorIndex = 3    'red
                   Case 2: .Interior.ColorIndex = 6    'yellow
                   Case 3: .Interior.ColorIndex = 5    'blue
                   Case 4: .Interior.ColorIndex = 10   'green
                   Case 5: .Interior.ColorIndex = 17   'periwinkle
               End Select
             End If
           Next i
       End With
   End If
ws_exit:
   Application.EnableEvents = True
End Sub

Gord Dibben  MS Excel MVP