How insert checkbox in Excel

[hua]

I want to place a checkbox character in Excel (character code E0A2 in font Segoe UI Symbol).

This is the VBA code that I captured using the macro recorder

Code: Select all  Expand view

    Range("E10").Select
    ActiveCell.FormulaR1C1 = "K3  ?"
    With ActiveCell.Characters(Start:=1, Length:=4).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 9
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With ActiveCell.Characters(Start:=5, Length:=1).Font
        .Name = "Segoe UI Symbol"
        .FontStyle = "Regular"
        .Size = 9
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range("F10").Select
 

How to translate the VBA into FWH or is there a much shorter and tidier way?

TIA