Hi guys,

What I would like is to have a list of names in column 1 and a some checkboxes in column 2. When I check one of these boxes I'd like the row I've checked to vanish and for the name to be copied into a separate sheet (to indicate that they have paid)

So far I have this code but it's sloppy and doesn't quite work as the checkbox doesn't hide and I haven't figured out how to copy the name over 

Public Sub Button2_Click()

r = ActiveSheet.UsedRange.Rows.Count
For i = 1 To r
If ActiveSheet.Range("C" & i).Value = "True" Then
ActiveSheet.CheckBoxes.Visible = False
ActiveSheet.Range("C" & i).EntireRow.Hidden = True
End If
Next i
End Sub


Sub AddCheckBox()
Dim cell As Range

'DelCheckBox  'Do the delete macro
'or delete all checkboxes in the worksheet
ActiveSheet.CheckBoxes.Delete
Dim LastRow As String
LastRow = Range("A65536").End(xlUp).Row
For Each cell In Range(Cells(1, 2), Cells(LastRow, 2))
      With ActiveSheet.CheckBoxes.Add(cell.Left, _
     cell.Top, cell.Width, cell.Height)
     .LinkedCell = cell.Offset(, 1).Address(External:=True)
     .Interior.ColorIndex = x1None   'or  xlNone or xlAutomatic
     .Caption = "Paid?"
     .Border.Weight = xlThin
     .OnAction = "Button2_Click"
       
  End With
  Next

With Range(Cells(1, 2), Cells(LastRow, 2))
.Rows.RowHeight = 15
End With
End Sub