VBA neue Tabs erstellen benennen

Hallo halli,

Ich möchte aus einer Liste neue Tabs erzeugen und benennen. Es scheitert gerade an dem Auslesen des Namens ab dem zweiten Listeneintrag.

Sub LKZ_Vorlage()
Dim wsVorlage_LKZ As Worksheet
Dim wsTop30 As Worksheet
Dim Lieferer As String
Dim i As Integer
Dim n As Long

Set wsVorlage_LKZ = Sheets("LKZ-Vorlage")
Set wsTop30 = Sheets("Tabelle1")

ActiveSheet.Range("C8:C11").Select
n = ActiveCell.Row

For i = 1 To n
Lieferer = wsTop30.Cells(n, 3).Text
wsVorlage_LKZ.Copy after:=wsVorlage_LKZ

ActiveSheet.Name = Lieferer
n = n + 1

Next i


End Sub