Kopiere et regneark fra en projektmappe til en anden i VBA

Hej

Jeg har en lille projektmappe og udfra dette skal jeg generere en ny projektmappe og indsætte et antal kopier af et regneark i en anden projektmappe. Jeg har problemer med at få pastet det kopierede ark i den nye mappe og samtidigt navngive det.

Private Sub CB_opret_Click()
Dim Raekke As Integer
Dim taeller As Integer
Dim Navn As String

Set nytProjekt = Workbooks.Add

'Opretter ny projektmappe:

    With nytProjekt
        .Title = TB_mdrnavn
        .SaveAs Filename:=TB_mdrnavn
    End With
   
' Opretter 5 ark per medarbejder i den nye projektmappe
Raekke = 1
While Workbooks("IKRskema").Worksheets("Medarbejdere").Cells(Raekke, 1) <> ""
  taeller = 1
  Navn = Workbooks("IKRskema").Worksheets("Medarbejdere").Cells(Raekke, 1).Value
  While taeller < 6
    Workbooks("IKRskema").Worksheets("Rapport").Copy
    ActiveSheet.Paste Before:=Workbooks(TB_mdrnavn).Worksheets(Navn & "-" & taeller)
    taeller = taeller + 1
  Wend
Raekke = Raekke + 1
Wend


Unload Me
End Sub

Jeg håber at nogen kan hjælpe

De bedste hilsner
René