Code über mehrere Arbeitblätter laufen lassen

Public Sub Auszug()
Dim wksZ As Worksheet
Dim Zelle As Range
Dim FirstAddress
Dim lngC As Long
Dim strInbox As String
Set wksZ = Worksheets("Auszug")
lngC = 2
'Altdaten löschen
wksZ.Range("A2:Z" & wksZ.Range("A65536").End(xlUp).Row + 1).ClearContents
strInbox = InputBox("Bitte Schlüsselnummer eingeben.")
If strInbox = "" Then
Exit Sub
Else
With Worksheets("Tabelle1").Range("A:A")
Set Zelle = .Find(strInbox, LookIn:=xlValues, lookat:=xlWhole)
If Not Zelle Is Nothing Then
FirstAddress = Zelle.Address
Do
Zelle.EntireRow.Copy Destination:=wksZ.Cells(lngC, 1)
lngC = lngC + 1
Set Zelle = .FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address  FirstAddress
End If
End With
End If
If lngC = 2 Then
MsgBox "Die Suche nach [" & strInbox & "] ergab keinen Treffer.", 48
Else
MsgBox "Zur Schlüsselnummer [" & strInbox & "] wurden " & lngC - 2 & " Einträge gefunden.", 64
End If
End Sub