Makro zurück zur ersten Seite

Sub MultiSuche()
Dim Sh As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
Application.ScreenUpdating = False
Zähler = 0
SBegriff = InputBox("Bitte Suchbegriff eingeben:")
For Each Sh In Worksheets
Sh.Activate
Set GZelle = Sh.Cells.Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
Application.ScreenUpdating = True
GZelle.Activate
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Application.ScreenUpdating = False
Zähler = 1
Set GZelle = Sh.Cells.FindNext(after:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
Next Sh
If Zähler = 1 Then End
Sheets("Übersicht").Select
MsgBox "Keine Übereinstimmung gefunden !"
End Sub