Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim StrDetails As String
With ContentControl
  If .Title = "Client" Then
    Select Case .Range.Text
      Case "Roundhouse Nurseries"
        StrDetails = "Phone: 08 1111 1111" & vbCr & _
            "Fax: 08 2222 2222" & vbCr & _
            "Email: sales@roundhousenurseries.com.au"
      Case "Smiths Wholesales"
        StrDetails = "Phone: 08 3333 3333" & vbCr & _
            "Fax: 08 4444 4444" & vbCr & _
            "Email: sales@smithswholesales.com.au"
      Case Else: StrDetails = ""
    End Select
  ActiveDocument.ContentControls(2).Range.Text = StrDetails
  End If
End With
End Sub