Makro ändern auf Tabellencode

[Timmihase]

Hallo liebes Forum,

ich benutze folgendes Makro

Code:

If ActiveSheet.Name = "Auswertung" Then
      With Sheets("Ergebnisse")
        varI = Application.Match(Range("B8"), .Range("A1:A43"), 0)
        If IsNumeric(varI) Then
            If Len(.Cells(varI + 0, 19).Value) Then
              varI = varI * -(MsgBox("Arbeitsweise wurde bereits benotet, ?berschreiben ?", vbQuestion + vbYesNo, "R?ckfrage") = vbYes)
            End If
            If varI Then .Cells(varI + 0, 19).Value = Range("D11").Value
        End If
      End With
    End If

Statt der Tabellennamen ( Ergebnisse und Auswertung ) würde ich gerne den Tabellencode vom VBA nehmen.
Auswertung ist = Tabelle13
Ergebnisse = Tabelle25

Leider bekomme ich es nicht hin das Makro umzuschreiben. 

Weiß jemand wie das geht ?

Danke sehr

[Guschti]

Hallo

Dann mal ein Beispiel:

Code:

Sub Test()
    If ActiveSheet.CodeName = "Tabelle13" Then
        MsgBox "Hallo"
    End If
End Sub

Gruss Guschti

[Timmihase]

Danke. Werde ich testen