namenszuordnung zu tabellen

Ich würde eine Möglichkeit suchen, aus mehreren dateien (die alle die selben tabellen beinhalten) immer eine bestimmte tabelle auszuwählen, das dann für jede einzelne tabelle

hier mein ansatz:

Sub aktualisieren()
Dim namen As Worksheet

For i = 1 To Sheets.Count
With namen
.Name = ActiveWorkbook.Worksheets(i).Name
End With
ActiveWorkbook.Worksheets(i).Cells.Replace What:="#N/A History", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Next i

Allerdings lässt sich .Name so nicht zuordnen, wie kann ich ihm sagen, dass namen immer die aktuelle Tabelle ist?

Danke im Voraus

Stefan
End Sub