A possible alternative.  Note:  I bookmark all my tables so I can make calls
to them by name.  In this case, the table in question has been bookmarked
with the name "Production".  So I can set a table object for specifically
THAT table.

Sub GetNextCellIF()
Dim oTable As Table
Dim oCol As Column
Dim j As Long
Dim oCell As Cell
Set oTable = ActiveDocument.Bookmarks("Production") _
  .Range.Tables(1)
Set oCol = oTable.Columns(1)
For Each oCell In oCol.Cells
  If oCell.Range.FormFields.Count = 1 And _
     oCell.Range.FormFields(1).Result = _
           "Production" Then
     j = oCell.RowIndex
     Set oCell = oTable.Cell(j, 2)
     MsgBox CellText(oCell)
     Exit For
  End If
Next
Set oCell = Nothing
Set oTable = Nothing
End Sub

Function CellText(oCell As Cell) As String
  Dim r As Range
  Set r = oCell.Range
  r.MoveEnd Unit:=wdCharacter, Count:=-1
  Celltext = r.Text
  Set r = Nothing
End Function

The For Each looks through each cell in the column object, and if the cell
has ONE formfield AND its Result = "Production", it sets the cell object to
be the cell one column over, and then uses the CellText function to display
the text.

I have a question though.  Are you Unprotecting the document to execute this?

Hi Dave,

It doesn't, indeed.

It just returns what is in the cell 2 of the row
of the cell containing the field.

Also rowindex and columnindex might fail
in not uniform tables, but thats another story.

Hi www.officekb.com/Uwe/,

yes, avoid the selection, as I did.

But please don't start yet another discussion
about range vs. selection. Sometimes, rarely, yes,
there is no alternative to the selection,
and in tables, the selection my be 10 times
faster than ranges.

See:
"4 seconds instead of 56"
http://tinyurl.com/c5nq8