Code below dosn't work, What is wrong ?
Sub TableRange()
'***************
' p | *
'***************
' Code below dosn't work: What is wrong
With ActiveDocument.Tables(1)
If .Cell(1, 1).Range.text = "p" Then
.Cell(1, 2).Range.text = 8
Else
End If
End With
End Sub
Sub TableRange()
'***************
' p | *
'***************
' Code below dosn't work: What is wrong
With ActiveDocument.Tables(1)
If .Cell(1, 1).Range.text = "p" Then
.Cell(1, 2).Range.text = 8
Else
End If
End With
End Sub