VSB Code erweitern

[jon]

Diesen Code habe ich bereits geschrieben/kopiert:

Code:

Sub VorlageKopiernnachDatum()                                                
 Dim rngC As Range
 Application.ScreenUpdating = False
 For Each rngC In Sheets("DATEN").Range("R5:R52")
   If rngC <> "" Then
     Sheets("Vorlage").Copy after:=Sheets(Sheets.Count)
     With ActiveSheet
       .Name = rngC
       .Range("L3") = rngC
     End With
   End If
 Next
End Sub

Ich möchte diesen nun Code Erweitern. 
Generell Gibt es das Blatt "DATEN" in dem alle benötigten werte eingetragen werden. Das Blatt "Vorlagen" wird Kopiert und nach dem Wertebereich "DATEN R5:R52" benannt.

Nun sollten such noch die Werte im bereicht ("U5:U52" des Arbeitsblatt "DATEN") in das jeweils passende Arbeitsblatt in Feld $A$12 eingesetzt werden.

Heißt in 
Arbeitsblatt mit dem Namen =R5 soll in Feld A12 der Wert =U5 aus "DATEN" eingesetzt werden 
Arbeitsblatt mit dem Namen =R6 soll in Feld A12 der Wert =U6 aus "DATEN" eingesetzt werden
Arbeitsblatt mit dem Namen =R7 soll in Feld A12 der Wert =U7 aus "DATEN" eingesetzt werden
...

[jon]

Problem hat sich gelöst.