mit einer function einen sheet kopieren

Function Sheet_erzeugen(Name As String)
1      Dim i As Integer
2      For i = 1 To Worksheets.Count
3         If Name = ActiveWorkbook.Worksheets(i).Name Then
4              MsgBox ("Name schon vorhanden")
5              Exit Function
6          Else
7              Sheets("Vorlage").Copy After:=Sheets(Worksheets.Count)
8              ActiveSheet.Name = Name
9          End If
10     Next i
11     Sheet_erzeugen = "0"
End Function