VBA Bezug ändern

Sub Kundenblaetter_anlegen()
Dim rngMuster As Range, zz As Long, ss As Long
Set rngMuster = Sheets("Vorlage").Columns("A:Y")
With Sheets("Grunddaten")
For zz = 6 To .Cells(.Rows.Count, 1).End(xlUp).Row
For ss = 1 To Sheets.Count
If Sheets(ss).Name = CStr(.Cells(zz, 1)) Then
MsgBox "Blatt '" & .Cells(zz, 1) & "' bereits vorhanden.", vbInformation
Exit For
End If
Next ss
If ss > Sheets.Count Then
Worksheets.Add after:=Sheets(Sheets.Count)
rngMuster.Copy Cells(1, 1)
Cells(2, 7) = .Cells(zz, 1)
ActiveSheet.Name = CStr(Cells(2, 7))
End If
Next zz
End With
End Sub