Fejl i Makro??

Jeg har ”lånt” en fil Opret flere Projektmapper på
Baks Excel hjemmeside.

Når jeg kører Makroen funger dennæsten, selv om den
kommer med en fejlmeddelelse i:
.Sheets(1).Name = matrix(1, X)

Jeg har sat en ny skabelon ind, men hvor er
fejlen i Makroen er der nogen der kan
hjælpe.

Her er makroen:

ub OpretMapper()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim sti As String
Dim matrix As Variant
Dim StdWsh As Worksheet
Dim MedWsh As Worksheet
Dim X As Integer, Y As Integer
Dim Oldsheets As Integer
' sti = "C:\dokumenter\"
Set StdWsh = ThisWorkbook.Sheets("skabelon")
Set MedWsh = ThisWorkbook.Sheets("Medarbejdere")
Oldsheets = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
matrix = MedWsh.UsedRange
For X = 1 To UBound(matrix, 2)
  Workbooks.Add
  With ActiveWorkbook
    .Sheets(1).Name = matrix(1, X)
    For Y = 2 To UBound(matrix, 1)
      If matrix(Y, X) = "" Then Exit For
      StdWsh.Copy After:=.Sheets(Y - 1)
      With ActiveSheet
        .Name = matrix(Y, X)
        .Range("D6") = matrix(Y, X)
      End With
  '.Sheets(1).Delete
    Next
  ' .SaveAs sti & matrix(1, X)
  ' .Close
  End With
Next
Application.SheetsInNewWorkbook = Oldsheets
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Johnfm