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.

This goes in a regular module, it will determine what range the checkbox is that you just clicked.
You will have to play around with the colors...

Please Login or Register  to view this content.

This will go into the worksheet module,
It will add a checkbox into column B and create a linked cell to column Z, and assign the macro to the checkbox.

Please Login or Register  to view this content.

Please Login or Register  to view this content.