VBA Automatically Adding a Checkbox to List

Hi, Can someone please help, i have the below command but i can not get it to add a check box every time i add to the list ...

Private Sub CommandButton1_Click()
Set ws = Worksheets("Sheet10")
lastrow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1
ws.Range("A" & lastrow).Offset(0, 1).Value = With ActiveSheet.CheckBoxes.Add(Selection.Left, Selection.Top, Selection.Width, Selection.Height)

End Sub


Also when the checkbox is ticked it should highlight the row in different color.