How to insert a checkmark with vba

[Pookiemeister]

I have a pass or fail option buttons. if the user selects "pass" option button a green check mark appears on the designated cell on the spreadsheet. The problem is I can't find a check mark in ascii only in Unicode. So I guess my question is how can I display a check mark and turn it green using colorindex?
Thanks

 

[Norie]

Try this WingDings font.

 

[Pookiemeister]

Is there not a way to do this with vba code?

 

[Norie]

Why couldn't you do it in code?

You can set the font of a cell, and what goes in it.

 

[Pookiemeister]

First, let me thank you for your help on other problems. Secondly, Let me apologize for my ignorance but can you give an example please?

 

[pgc01]

Hi

The checkmark is defined in the Unicode set and most fonts support Unicode, so using one of the usual fonts (Arial, Calibri, Verdana, Times New Roman, etc.), try:

ActiveCell.Value = ChrW(&H2713)

 

[Pookiemeister]

Not quite certain I understand. Sorry. The font is set to Calibri. Also forgot to mention that I am using Excel 2007, if that helps. Anyway here's my code and thanks again. Also, how do I change color of check mark to green?

If OptionButton1 = True Then
Cells(emptyRow, 7).Value = ActiveCell.Value = ChrW(&H2713)
Else
Cells(emptyRow, 7).Value = "X"
End If

 

[Pookiemeister]

Also forgot to mention, that code displayed a "False" inside cell.

 

[pgc01]

Not quite certain I understand. Sorry. The font is set to Calibri. Also forgot to mention that I am using Excel 2007, if that helps. Anyway here's my code and thanks again. Also, how do I change color of check mark to green?

If OptionButton1 = True Then
Cells(emptyRow, 7).Value = ActiveCell.Value = ChrW(&H2713)
Else
Cells(emptyRow, 7).Value = "X"
End If

Try:
instead of

Cells(emptyRow, 7).Value = ActiveCell.Value = ChrW(&H2713)

this

Cells(emptyRow, 7).Value = ChrW(&H2713)

 

[Pookiemeister]

It worked!!!!! Thank you very much. Is there a way to also change the color of the check mark to green?