Macro to find exact phrase

I have the below which deletes all rows above if it finds the string anywhere in a cell. I want to alter it so that it only does this if it finds the EXACT word in the cell.

 Sub Part2()
'macro to find "Bt?" and delete all rows above it
Dim rngFind As Range

On Error GoTo NotFound

Set rngFind = Cells.Find(What:="Bt?")
Range(rngFind.Offset(0, 0), Cells(1)).EntireRow.Delete
Set rngFind = Nothing



NotFound:

End Sub