Find and replace XYZ but not when WXYZ

Sub DelRows()
    Dim r As Range
    For Each r In Range("A1:A1000")
        If r.Text = "Billy" Then r.EntireRow.Delete
    Next
End Sub