Add Data to Combo Box Drop Down List in Excel Form|VBA & Macros|Excel Forum|My Online Training Hub

This project follows the article by Phil of the same name.  In my Excel Form I am trying to get the VBA to add a new entry in a table called "Project" which begins with a blank line.  When I add the new entry into the "Project" ComboBox on the form, it populates the worksheet but does not add the new entry to the Projecttable.  Below is my VBA, and the worksheet file is attached.

Function CheckForErrors() As Integer

   Dim Ctrl As MSForms.Control

   For Each Ctrl In WorkstreamForm.Controls

      Select Case TypeName(Ctrl)

         Case "ComboBox"
            ' If a new entry has been typed in
               If Ctrl.ListIndex = -1 Then

                  Ctrl.RowSource = ""

                 ' Add to relevant table : Project
                 If Ctrl.Name = "Project" Then

                     With Worksheets("Tables").ListObjects("Project")

                        .ListRows.Add
                        .ListRows(Worksheets("Tables").ListObjects("Project").ListRows.Count).Range.Cells(1, 1) = Ctrl.Value

                   End With

                   Ctrl.RowSource = "Project"

              End If

       End If

   End Select

End Function

Any help will be appreciated!  Thanks!