Dim iIndex As Integer
Dim vName As Variant
Dim sResult As String
Dim oFormfield As FormField
Dim i As Integer
Dim myrange As Range
For Each oFormfield In ActiveDocument.Tables(1).Range.FormFields
If oFormfield.Type = wdFieldFormDropDown Then
vName = oFormfield.Name
sResult = oFormfield.Result
If sResult = "Production" Then
oFormfield.Select
i = Selection.Cells(1).RowIndex
Set myrange = ActiveDocument.Tables(1).Cell(i, 2).Range
myrange.End = myrange.End - 1
MsgBox myrange
End If
End If
Next
Set oFormfield = Nothing
End Sub
TRy this and let me know.