Script not working Error13 Please help

Hello i'm using the following script and it is saying Error 13. I try to find the mistake but i couldn't find it. Little help will be much appreciated.

Thanks for the help in advance.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim rngLookin As Range
    Dim rngFnd As Range
If OptionButton2.Value = True Then
        With Sheets("2")
            Set rngLookin = .Range(.Range("C7"), .Range("C7").End(xlDown))
        End With
        
        Set rngFnd = rngLookin.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=True, SearchFormat:=False)