Sub Evaluate()
Dim oFld As Word.FormField
  If Selection.FormFields.Count = 1 Then
    Set oFld = ActiveDocument.FormFields(Selection.FormFields(1).Name)
  ElseIf Selection.FormFields.Count = 0 And Selection.Bookmarks.Count > 0 Then
    Set oFld = ActiveDocument.FormFields(Selection.Bookmarks(Selection.Bookmarks.Count).Name)
  End If
  Select Case oFld.Name
    Case "Dropdown1"
      If oFld.Result = "Improvement Needed" Then
        MsgBox "Show plan 1"
      Else
        MsgBox "Hide plan 2"
      End If
    Case "Dropdown2"
      If oFld.Result = "Improvement Needed (Below Satisfactory) (I)" Then
        MsgBox "Show plan 2"
      Else
        MsgBox "Hide plan 2"
      End If
  End Select
End Sub