In which case, assuming it's in table 1:
Code:
With ActiveDocument.Tables(1).Cell(12, 2).Range
If .Characters.Last.Previous.Information(wdVerticalPositionRelativeToPage) <> _
.Characters.First.Information(wdVerticalPositionRelativeToPage) Then
.FitTextWidth = InchesToPoints(2.38)
End If
End With