Unable to pop up message

Hi friends,
In this code if the filter entry is not found then the message should pop up 'No match found" so that the user understand that no match found.

Please suggest me a code for it.

Sub name()
    Dim FilterName As String
        FilterName = InputBox("enter name to filter")
        
        Sheets("Access").Activate
    Range("B7:ab3000").Select
    Range("d7").Select
    AutoFilter = True
    ActiveSheet.Range("$B$7:$Ad$3000").AutoFilter Field:=3, Criteria1:=FilterName, Operator:=xlAnd
    MsgBox "The filtered list is ready!", 64
End Sub

Thanking you in anticipation.

Regards,

Mukesh