If cell contents equals...

Hello again, greetings.


I'm trying to use an 'If' statement with cell contents. It's really simple but for some reason actually referring to what is in the cell (rather than the cell shading and other attributes and so on) is strangely elusive...


So far I have


Sub deleteifahyphen()

Set myTable = ActiveDocument.Tables(18).Tables(8)
Set myRange = ActiveDocument.Range(myTable.Cell(2, 2) _
.Range.Start, myTable.Cell(2, 2).Range.End)


If myRange = " - " Then _

ActiveDocument.Tables(18).Tables(8).Columns(2).Delete

End If

End Sub




Now all this is trying to say is that if there's a hyphen in cell (2,2) within a certain table, delete the whole table column.

It runs but does not have any effect. Should saying 'If cell x has y in it, do z' be so hard?