Tabellenblattnahme, Beitrag 1008-1012 21.09.08

Private Sub Worksheet_Change _
(ByVal Target As Range)
If Target.Address = "$D$12" Then
TabelleXXX.Name = Range("D12").Value
End If
End Sub

hat Super funktioniert, nochmals Danke!!
Nun habe ich aber noch ein weiteres Problem, ich habe nicht nur eine Tabelle sondern mehrere die geändert werden sollen. Ich habe folgendes versucht:

Private Sub Worksheet_Change _
(ByVal Target As Range)
If Target.Address = "$D$12" Then
TabelleXXX.Name = Range("D12").Value
If Target.Address = "$D$13" Then
TabelleXX1.Name = Range("D13").Value
If Target.Address = "$D$14" Then
TabelleXX2.Name = Range("D14").Value
End If
End Sub

So hat das leider nicht geklappt.
Wie kann ich den Code ändern, dass es auch mit mehreren Tabellenblätter funktioniert?
Gruß Werner