Excel UserForm Data Entry (VBA) #4 - CheckBox

Learn how to create a simple userform in Excel VBA. This video shows how to add CheckBox Control. The code used in this video: Private Sub btnCancel_Click() Unload Me End Sub Private Sub btnOK_Click() Dim ws As Worksheet Set ws = Worksheets("Customers") Dim newRow As Long newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1 ws.Cells(newRow, 1).Value = Me.txtFirstName.Value ws.Cells(newRow, 2).Value = Me.txtSurname.Value ws.Cells(newRow, 3).Value = Me.cbCountries.Value If obMale.Value = True Then ws.Cells(newRow, 4).Value = "Male" Else ws.Cells(newRow, 4).Value = "Female" End If If Me.cbPost.Value = True Then ws.Cells(newRow, 5).Value = "Yes" Else ws.Cells(newRow, 5).Value = "No" End If If Me.cbTelephone.Value = True Then ws.Cells(newRow, 6).Value = "Yes" Else ws.Cells(newRow, 6).Value = "No" End If End Sub Private Sub UserForm_Initialize() With cbCountries .AddItem "Canada" .AddItem "New Zealand" End With End Sub