일치 항목 없음 때 Cells.Find 반환 오류

Sub Find_Macro()
    mystring = "mystring"
    Set RangeObj = Cells.Find(What:=mystring, After:=ActiveCell, _
    LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=False)
    If RangeObj Is Nothing Then MsgBox "Not Found" Else RangeObj.Select
End Sub