Suche Modifizieren (exclusive)

Sub Finden()
Dim rng As Range
Dim vNumber As Variant
Dim iCounter As Integer
Dim sFirst As String
Dim bln As Boolean
vNumber = InputBox( _
prompt:="Suche in allen Tabellenblättern! Bitte Begriff eingeben:", _
Default:="Was soll gesucht werden?")
If vNumber = "" Then Exit Sub
For iCounter = 1 To Worksheets.Count
Set rng = Worksheets(iCounter).Cells.Find(vNumber)
If rng Is Nothing = False Then
sFirst = rng.Address
Do
Set rng = Worksheets(iCounter).Cells.FindNext(rng)
MsgBox "Gefunden in Blatt " & rng.Parent.Name _
& " - Zelle " & rng.Address(False, False)
Weiter = MsgBox("Weitersuchen?", vbYesNo, "Suche!")
If Weiter = vbNo Then Exit Sub
Loop While Not rng Is Nothing And rng.Address  sFirst
bln = True
End If
Next iCounter
If bln = False Then
Beep
MsgBox prompt:="Begriff nicht gefunden!"
End
End If
End Sub