I have a table and want to insert in to a particular cell on a particular row a WingDing symbol (ticked box) followed by some text ("A First Submission").

I have used the following:

        .Rows(2).Cells(1).Range.Text = "Is this "
        .Rows(2).Cells(2).Range.InsertSymbol Font:="Wingdings", CharacterNumber:=-3842, Unicode:=True
        .Rows(2).Cells(2).Range.Text = "A First submission"
        .Rows(2).Cells(3).Range.Text = "An Extended First submission"
        .Rows(2).Cells(4).Range.Text = "A Resubmission"
I get an error every time I run this (or a variant of this) and so, how would I do this?

I got the above character number from a recorded macro but the Unicode value is being shown as 254 or 00FE. This makes no difference to the error but just in case someone raises this as an issue.