Problem setting focus to a different textbox

[mumps]

I am trying to use the following code to change focus to a different text box on a user form if the value of the active textbox is found in Sheet1. The code works properly if the value is not found but if the value is found, I get this error message: "Unexpected call to method or property access." I have been researching some possible solutions but without success. Any suggestions would be greatly appreciated.

Private Sub TextBox23_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim fnd As Range
    Set fnd = Sheets("Sheet1").Range("H:H").Find(TextBox23.Value, LookIn:=xlValues, lookat:=xlWhole)
    If fnd Is Nothing Then
        MsgBox ("Not found.")
        TextBox23.Value = ""
        Cancel = True
    Else
        TextBox8.SetFocus
    End If
End Sub

 

[abdelfattah]

hi Mumps actually I have no experience in vba but honestly I tested your code and work for me , if there is the value match textbox23 with in column h then set focus in textbox 8 and if the value is not matched then show the message not found
currently I work office 2016 and I think maybe you have wrong name textbox or what you indicates to textbox 23 or 8 are not existed just guessing

 

[mumps]

Thank you for your suggestion. All the textbox names are correct so I don't think that is the problem.

 

[abdelfattah]

is it your form contain frame ?

 

[mumps]

is it your form contain frame ?

Yes

 

[EXCEL MAX]

First thing I do when error with property occur,
I try to delete control and create new control with default properties.

 

[abdelfattah]

so I think this post is like you post similar check theses links , please if is not I try search in the internet maybe find idea
TextBox setfocus unexpected call
Can't set focus back to textbox after user error

 

[abdelfattah]

is the texboxes inside frame or out side

 

[EXCEL MAX]

I have test Abdelfattah suggestion with frame and find that this error occur if TextBox8 is in the frame.
If this is your case you need first to set focus to the Frame, and after that to the TextBox8.

Private Sub TextBox23_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Dim fnd As Range
    Set fnd = Sheets("Sheet1").Range("H:H").Find(TextBox23.Value, LookIn:=xlValues, lookat:=xlWhole)
    If fnd Is Nothing Then
        MsgBox ("Not found.")
        TextBox23.Value = ""
        Cancel = True
    Else
        Frame1.SetFocus
    End If
    
End Sub


Private Sub Frame1_Enter()

    Me.TextBox8.SetFocus
    
End Sub

 

[mumps]

Thanks to all for your help. I managed to solve the problem. The error was caused by another "exit" macro event. I would post the code but the changes I had to make involved several other macros.