Code Ändern "VLOOKUP"

Sub werte_uebertragen_Typ_2()
Dim intLastCol As Integer
Dim lngNextRow As Long
With Tabelle11
intLastCol = .Cells(8, Columns.Count).End(xlToLeft).Column
lngNextRow = .Cells(1612, 1).End(xlUp).Row + 1
.Range(.Cells(lngNextRow, 1), .Cells(lngNextRow, intLastCol)).Formula _
= "=VLOOKUP(A$8,' (1)'!$S:$T,2,)"
.Range(.Cells(lngNextRow, 1), .Cells(lngNextRow, intLastCol)).Value = _
.Range(.Cells(lngNextRow, 1), .Cells(lngNextRow, intLastCol)).Value
End With
End Sub

der Code funktioniert sehr gut, nur durch ein Addin wird das tabellenblatt (' (1)'!) ständig umbenant.
meine Frage wie kann ich den Code ändern das ich nicht auf den Namen im Tabellenblatt zugreife sondern auf den Namen der im VBA hinterlegt ist zugreife nicht auf ' (1)'! sondern auf Tabelle2
im vorraus danke für eure hilfe
Snore