Private Sub ComboBox1_AfterUpdate()
Dim j&, k&
On Error Resume Next
k = Application.Match(ComboBox1, Columns(1), 0)
On Error GoTo 0
If k <> 0 Then
l = ComboBox1.ListIndex + 12
For i = 1 To 26
Controls("CheckBox" & i) = IIf(Cells(l, i + 4) = "", 0, 1)
Next
TextBox1 = Cells(l, 4)
Else
l = [A65536].End(3)(2).Row
Cells(l, 1) = ComboBox1
Cells(l, 5).Resize(, 19).Font.Name = "Wingdings"
End If
Me.Height = 433
Me.Width = 555
Me.Top = Application.Height / 2 - Me.Height / 2
Me.Left = Application.Width / 2 - Me.Width / 2
End Sub