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)
Bookmarks