leere Zelle, Wert eintragen in mehrere Sheets

habe hier ein Makro. Schreibt das Datum in die nächste leere Zelle in der Spalte 5 der TabelleX. Ich möchte gerne, dass auch in andere Tabellen zum Beispiel Tabelle1 und Tabelle2 das Datum eingefügt wird. Die Tabellen Namen stehen in der Tabelle "Name" im Bereich A1:A10

Sub Makro_leer()
Dim i As Integer
For i = 10 To 100
If Worksheets("TabelleX").Cells(i, 5) = Date Then
Exit For
End If
If Worksheets("TabelleX").Cells(i, 5) = 0 Then
Worksheets("TabelleX").Cells(i, 5) = Date
Exit For
End If
Next

kann mir jemand helfen?

Danke Alex