run time error 424 object not found

Im trying to create a data form to upload details to spreadsheet. I have created the form in VBA but when I try and play it i get the error message "run time error 424 object not found." I cant seem to find the problem in the code and have stared at it for so long I feel a bit like an eskino staring at the snow. Any suggestions will be welcome below is the code

Private Sub cmdCancel_Click()


    Unload Me

End Sub



Private Sub cmdClearForm_Click()

    Call UserForm_Initialize

End Sub






Private Sub cmdOK_Click()

    ActiveWorkbook.Sheets("Sheet 1").Activate

    Range("A3").Select


    ActiveCell.Value = cboCSR.Value

    ActiveCell.Offset(0, 1) = txtDate.Value

    ActiveCell.Offset(0, 2) = txtCaseNo.Value

    ActiveCell.Offset(0, 3) = txtCallbackDate.Value

    ActiveCell.Offset(0, 4) = txtTimeWindow.Value
    
    ActiveCell.Offset(0, 5) = cboAssign.Value
    
    ActiveCell.Offset(0, 6) = txtContactNo.Value
    
    ActiveCell.Offset(0, 7) = txtOrangeNo.Value



        End If

    End If

    Range("A3").Select

End Sub


Private Sub UserForm_Initialize()

txtName.Value = ""

txtDate.Value = ""
    
    With cboCSR

        .AddItem "Andy"

        .AddItem "Ian"

        .AddItem "Vici"

        .AddItem "Marcia"

        .AddItem "Nina"

        .AddItem "Emma"

        .AddItem "Wendy"

        .AddItem "Dave"

        .AddItem "George"

        .AddItem "Nick"

        .AddItem "Alina"
        
        .AddItem "Janey"

        .AddItem "Debbie"

        .AddItem "Sharon"
        
        .AddItem "Mark M"

        .AddItem "Mark B"

        .AddItem "Kayley"

        .AddItem "Andrea"

        .AddItem "Gill"

        .AddItem "Suzanne"

        .AddItem "Linda"

        .AddItem "Sheena"

        .AddItem "Alison"

        .AddItem "Katie"

        .AddItem "Paula"
        
        .AddItem "Joe"

        .AddItem "Gary"

        .AddItem "Annie"
        
End With

    cboCSR.Value = ""
    
    txtCaseNo.Value = ""

    txtCallbackDate.Value = ""

    txtTimeWindow.Value = ""
    
   With cboAssign

        .AddItem "Andy"

        .AddItem "Ian"

        .AddItem "Vici"

        .AddItem "Marcia"

        .AddItem "Nina"

        .AddItem "Emma"

        .AddItem "Wendy"

        .AddItem "Dave"

        .AddItem "George"

        .AddItem "Nick"

        .AddItem "Alina"
        
        .AddItem "Janey"

        .AddItem "Debbie"

        .AddItem "Sharon"
        
        .AddItem "Mark M"

        .AddItem "Mark B"

        .AddItem "Kayley"

        .AddItem "Andrea"

        .AddItem "Gill"

        .AddItem "Suzanne"

        .AddItem "Linda"

        .AddItem "Sheena"

        .AddItem "Alison"

        .AddItem "Katie"

        .AddItem "Paula"
        
        .AddItem "Joe"

        .AddItem "Gary"

        .AddItem "Annie"
        
End With

    cboAssign.Value = ""
    
    txtContactNo.Value = ""

    txtOrangeNo.Value = ""
    
End Sub

And maybe indicate what line is giving you the error message.

Dom

I suspect one of your control names is wrong. When you get the error, press Debug then press f8 repeatedly to step through the code line by line and see where the actual error is.

I'd double check the control name then. If you delete the

txtName.Value = ""

line and type

Me.t

you should get a list of the properties (including control names) that start with 't' so check if yours is listed.