find the Unicode value of a symbol

As described here, Aula Nerd often wants to know the Unicode value of a symbol. Pressing Alt + X after the symbol will give the Unicode (hex) value. The macro below will give the Unicode (decimal) value – just highlight the symbol you want then click the macro:

Sub GetUnicodeDecimal()

MsgBox "Unicode (decimal) is: " & AscW(Selection.Text)

End Sub

If you then want to use the symbol in a macro you use this line of code:

Selection.InsertSymbol Font:=”Arial”, CharacterNumber:=916, Unicode:=True