Makro macht mehr als es soll

Sub Suchen_Löschen()
Dim Zelle As Range
Dim intCounter As Integer
Dim Suchbegriff As Variant
Suchbegriff = Range("B1").Value
For intCounter = 2 To Worksheets.Count
With Worksheets(intCounter)
Set Zelle = .Cells.Find(what:=Suchbegriff, after:=.Range("A1"), LookIn:=xlValues, lookat:=xlWhole)
End With
If Not Zelle Is Nothing Then
Application.Goto Zelle
If MsgBox("Löschen ???", vbYesNo, vbYes) Then
Rows(Zelle.Row).Delete
End If
End If
Next intCounter
End Sub

Warum löscht es die Zeile auch dann, wenn ich auf der MsgBox "nein" klicke?

Grüsse
Wolfgang