Insert symbol into cell in table

[Mark]

i am trying to insert a symbol in a cell with the following code:

ActiveDocument.Tables(3).Rows(Tables(3).Rows.Count).Cells(2).Select
Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3844, Unicode _
:=True

but it throws up an error -

Run time error 4605
The method or property is not available because the object does not refer to
a simple range or selection.

This routine is called from a cmdbutton on the document.
Can someone please point me in the right direction?

Many thanks

[Helmut Weber]

Hi Mark,

like this:

ActiveDocument.Tables(1).Range.Cells(2).Select
Selection.MoveEnd Unit:=wdCharacter, Count:=-1
Selection.InsertSymbol Font:="Wingdings", _
CharacterNumber:=-3844, Unicode:=True

[Mark]

Hi Helmet,

Thanks, the table expands with additional rows of data and I need to be able
to put the ticks in the lastrow each time, can you help?
--
Mark

Post by Helmut Weber
Hi Mark,
ActiveDocument.Tables(1).Range.Cells(2).Select
Selection.MoveEnd Unit:=wdCharacter, Count:=-1
Selection.InsertSymbol Font:="Wingdings", _
CharacterNumber:=-3844, Unicode:=True
--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"

[Mark]

Helmet,

i've sorted it, thanks for your help
--
Mark

Post by Helmut Weber
Hi Mark,
ActiveDocument.Tables(1).Range.Cells(2).Select
Selection.MoveEnd Unit:=wdCharacter, Count:=-1
Selection.InsertSymbol Font:="Wingdings", _
CharacterNumber:=-3844, Unicode:=True
--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"

[Helmut Weber]

... just in case you found:

ActiveDocument.Tables(3).Rows(ActiveDocument.Tables(3).Rows.Count).Cells(2).Select

there is also:

ActiveDocument.Tables(3).Rows.Last.Cells(2).Select