Method 'Default' Error Trap

[dkendall]

I've been fighting with this now for days, have re-written the code in every way possible. It's a simple user form that I am trying to have submit individual records to a table on a worksheet in the workbook. It works fine for the first record but fails every time on the second. I've included the errors as well as the code and would really appreciate any help...

 

[NoSparks]

try this

Private Sub Submit_Click()
    Dim sh As Worksheet
    Dim iRow As Long
    
Set sh = ThisWorkbook.Sheets("database")

With sh

    iRow = .Range("B" & .Rows.Count).End(xlUp).Row + 1
    
    .Cells(iRow, 2) = Me.cmbName.Value
    .Cells(iRow, 3) = Me.cmbMGR.Value
    .Cells(iRow, 4) = Me.txtDate.Value
    .Cells(iRow, 5) = Me.txtCall.Value
    .Cells(iRow, 6) = Me.txtScore.Value
    .Cells(iRow, 7) = Me.cmbDept.Value
    .Cells(iRow, 8) = Me.cmbRoot.Value
    If Me.optAction = True Then .Cells(iRow, 9) = "Coaching Required"
    .Cells(iRow, 10) = Me.cmbLevel.Value
    .Cells(iRow, 11) = Me.txtFB.Value
    .Cells(iRow, 12) = Application.UserName
    .Cells(iRow, 13) = Format(Now, "MM/DD/YY")
    
End With

End Sub

 

[dmt32]

Hi,
getting that error I would hazard a guess that you have linked one or more of your comboboxes to the table using RowSource property?
If this is so, clear the RowSource property & populate your comboboxes using List property of the control.

Dave