Löschen von Zeilen für alle Blätter in Datei

Sub DelFoundLines()
Dim i As Long           ' Zeilenzähler
Dim tofind As Variant   ' Hiernach wird gesucht
Dim found As Range      ' Eine Fundstelle oder Nothing
tofind = InputBox(prompt:=Msg, Title:=Titel)
If tofind = "" Then Exit Sub
Application.ScreenUpdating = False
For i = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row _
To 1 Step -1
Set found = Rows(i).Find(what:=tofind, _
LookIn:=xlValues, lookat:=xlWhole)
If Not found Is Nothing Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub