Sub InsertCheckbox()
Dim checkboxObj As CheckBox
Dim selectedRange As Range
' Define the range where the checkbox will be added
Set selectedRange = ActiveSheet.Range("A1")
' Add a checkbox to the selected range
Set checkboxObj = ActiveSheet.CheckBoxes.Add(selectedRange.Left, selectedRange.Top, selectedRange.Width, selectedRange.Height)
' Set the label text for the checkbox (optional)
checkboxObj.Characters.Text = "Checkbox"
' Set the initial value of the checkbox
checkboxObj.Value = True
' Adjust other checkbox properties if needed
' checkboxObj.Font.Name = "Arial"
' checkboxObj.Font.Size = 10
End Sub