Bei Abbruch Inputbox tu was

Sub aufrufen (Call Loeschen).
Wer kann mir bitte dabei helfen?
Gruß Reinhardt.

Sub RGSuche()
Dim suche As String
Dim z As Integer
suche = InputBox("Welche Rechnung suchen Sie? ", , "4711")
Sheets("RGArchiv").Select
z = 0                                 'den Zähler für die Treffer zu Beginn auf Null stellen
[H3].Activate                        'hier ändern falls eine andere Spalte durchsucht werden  _
soll
If suche = "" Then Exit 

Sub         'wenn keine Eingabe in InpuBox erfolgte wird abgebrochen
Do Until ActiveCell = ""        'bis zur ersten leeren Zelle suchen
ActiveCell.Offset(1, 0).Activate 'eine Zeile nach unten gehen
If ActiveCell = suche Then   'wenn die Zelle den gesuchten Wert enthält:
ActiveCell.Offset(0, -7).Select
Sheets("RGFormular").Range("S4").Value = ActiveCell.Value
Exit Sub
z = z + 1                   'dann den Zähler um eins erhöhen
End If
Loop
End Sub