next ohne for trotz end if außer for next Schleife

Sub makro1()
Dim Kst As String
Dim i As Integer
Dim j As Integer
For i = 2 To 22
Kst = Workbooks("Namensliste").Worksheets("Tabelle1").Cells(i, 2)
Workbooks("Masterliste").SaveCopyAs Filename:="C:\Dokumente und Einstellungen\Besitzer\Desktop\Eva Excel\" & Kst & ".xls"
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\Besitzer\Desktop\Eva Excel\" & Kst & ".xls"
For j = 2 To 310
If Workbooks("Namensliste").Worksheets("Namensliste").Cells(j, 5) = Kst Then
Workbooks(Kst).Worksheets.Add 'after:=Worksheets(Worksheets.Count)
Workbooks(Kst).activeworksheet.name = Workbooks("Namensliste").Worksheets("Namensliste").Cells(j, 4)
Next j
Next i
End if
End Sub