oprette ark ud fra liste - fejler

Sub Opret_nye_faner()

Application.ScreenUpdating = False ' gør at excel ikke blinker

    Sheets("Total").Select '<-- Ark med liste
    Sheets("Total").Range("A9:" & Sheets("Total").Range("A65536").End(xlUp).Address).Select
 
    For Each C In Selection.Cells
        If Not IsEmpty(C) Then
            Sheets("Skabelon").Activate '<-- Skabelon Ark
            ActiveSheet.Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = C.Value
        End If
    Next C
   
    Application.ScreenUpdating = True ' gør at excel ikke blinker
    Sheets("Total").Select
    Range("B1").Select
End Sub

I kolonne A er der en formel Hvis der ikke står noget i B skal celle A være tom ellers  skal der bare stå det der står i B

Den opretter alle ark fint nok men der kommer en fejl 400 til slut og så opretter den et ekstra ark (som er tomt)

Ikke a det gør så meget med stadig lidt træls at se på

LN