Error Handling if value is not found in search

[RLJ]

I'm having problems getting the below code to work properly, I can't seem to get the msgbox to only show when the value is not found. It show every time I run the code.

Sub FindEvent()
    Dim Evnt As String, Found As Range
    
    Evnt = Range("B2").Value

    If Found Is Nothing Then
        MsgBox "Event does not have a cheat sheet in the workbook", vbExclamation, "Not Found"
    Else
        With ActiveSheet
            .Range("B" & .Range("SearchRng").Find(Evnt).Row).Select
        End With
        With Range("B2:C2")
            .ClearContents
        End With
    End If

End Sub

 

[rlv01]

You need to include a Range.Find statement before you test variable Found. Example:

Set Found = ActiveSheet.Range("B1:B10").Find(What:="BLACK", LookAt:=xlPart)

The way it is now, Found will always = Nothing and the MsgBox will always appear.

 

[RLJ]

You need to include a Range.Find statement before you test variable Found. Example:

Set Found = ActiveSheet.Range("B1:B10").Find(What:="BLACK", LookAt:=xlPart)

The way it is now, Found will always = Nothing and the MsgBox will always appear.

Thank you. It fixed my problem.