Not in the Beta Channel, but really don't want to wait for Boolean CheckBoxes?

For those like myself who are unable to join the Beta Channel due to your companies IT policies, but really want those Boolean Checkboxes you've seen on Social Media, I've worked out a solution!

It's not perfect, but it works exactly the same from what I can tell.

1. Open Personal.xlsb
2. Create a module
3. Enter this code;

Sub InsertCheckbox()
    Dim cb As CheckBox
    Dim rng As Range
    
    'Select the range
    Set rng = Selection
    
    'Loop through each cell in the range
    For Each cell In rng
        ' Insert a checkbox in each cell
        Set cb = ActiveSheet.CheckBoxes.Add(cell.Left, cell.Top, cell.Width, cell.Height)
        
        'Set the value to unchecked
        cb.Value = False
        cb.Caption = ""
        
        'Link the checkbox with the cell value
        With cb
            .LinkedCell = cell.Address
            .Display3DShading = False
        End With

        'Set the font to match the cells colour so cell Value is hidden
        With cell
            .Font.Color = .Interior.Color
        End With
        
    Next cell
End Sub

4. Save to Personal.xlsb

5. Add to the Ribbon for quick access.

Now all you have to do is select the Cell(s) you wish to insert the CheckBox(s) in, and hit the button in you created on the ribbon.

When the CheckBox is Checked, referencing the cell it sits in will return TRUE, and unchecked will return FALSE.

Enjoy!