Greg -- typo in your attachment in #7
Function fncCellText(oCell As Cell)
should be
Function fcnCellText(oCell As Cell) ' fcn not fnc
Sub CalcDisplay()
Dim oTbl As Table
Dim arrParts() As Variant
Set oTbl = ActiveDocument.Tables(1)
With oTbl.Cell(1, 1).Range
Select Case True
Case opt_25_3: .Text = "75"
Case opt_25_2: .Text = "50"
Case opt_25_1: .Text = "25"
Case opt_25_0: .Text = "0"
End Select
End With
With oTbl.Cell(6, 1).Range
Select Case True
Case opt_20_3: .Text = "60"
Case opt_20_2: .Text = "40"
Case opt_20_1: .Text = "20"
Case opt_20_0: .Text = "0"
End Select
End With
oTbl.Cell(11, 2).Range.Text = CLng(fcnCellText(oTbl.Cell(1, 1))) + CLng(fcnCellText(oTbl.Cell(6, 1)))
End Sub
Function fncCellText(oCell As Cell)
Dim oRng As Range
Set oRng = oCell.Range
oRng.End = oRng.End - 1
fcnCellText = oRng.Text
End Function