Excel UserForm Data Entry (VBA) #5 - ListBox

Learn how to create a simple userform in Excel VBA. This video shows how to add ListBox 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 For i = 0 To Me.lbDays.ListCount - 1 If Me.lbDays.Selected(i) Then ws.Cells(newRow, 7).Value = ws.Cells(newRow, 7).Value + Me.lbDays.List(i) + " " End If Next i End Sub Private Sub UserForm_Initialize() With cbCountries .AddItem "Canada" .AddItem "New Zealand" End With With Me.lbDays .AddItem "Monday" .AddItem "Tuesday" .AddItem "Wednesday" End With End Sub