Sorry, I meant to say ... I want the table cell "color" to change.

Something like this:

Option Explicit
Public mstrFF As String

'Run on exit from your DD field

Public Sub AOnExit()
Dim oDoc As Word.Document
Dim oCell As Cell
Set oCell = ActiveDocument.Tables(1).Cell(1, 1)
Set oDoc = ActiveDocument
oDoc.Unprotect
With GetCurrentFF
 Select Case .Name
   Case Is = "MyDropDown"
     Select Case .Result
       Case Is = "good"
         oCell.Shading.BackgroundPatternColor = wdColorGreen
       Case Is = "caution"
         oCell.Shading.BackgroundPatternColor = wdColorYellow
       Case Else
         'Whatever
     End Select
   Case Else
     'Whatever
 End Select
End With
oDoc.Protect wdAllowOnlyFormFields, True
End Sub

Public Function GetCurrentFF() As Word.FormField
With Selection
 If .FormFields.Count = 1 Then
   Set GetCurrentFF = .FormFields(1)
 ElseIf .FormFields.Count = 0 And .Bookmarks.Count > 0 Then
    Set GetCurrentFF = ActiveDocument.FormFields _
    (.Bookmarks(.Bookmarks.Count).Name)
 End If
End With
End Function