fill in form content

[wmbb]

WORD 2007 form question:

Is it possible to fill a content control with the tag "tel" depending on the value of content control with the tag "requestor".

I was thinking about the a code like below but this doesn't work.

Sub names()
Select Case ActiveDocument.ContentControls("requestor").Value
   Case "person 1"
       ActiveDocument.ContentControls("tel") = "xxxxx"
   Case "person 2"
       ActiveDocument.ContentControls("tel") = "yyyyy"
   Case "person 3"
       ActiveDocument.ContentControls("tel") = "zzzzz"
   Case Else
       ActiveDocument.ContentControls("tel") = "-----"
End Select
End Sub

Any suggestions ?