Oprette en kontoplan

Sub OpretFaner()
    Dim c As Range
    For Each c In Range("C7", Range("C" & Rows.Count).End(xlUp)).Cells
        If c.Value2 <> "" Then
            If Not FindesArkfanen(c.Value2) Then
                Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = c.Value2
            End If
        End If
    Next
End Sub

Public Function FindesArkfanen(navn As String) As Boolean
  FindesArkfanen = Not (IsError(Evaluate(navn & "!A1")))
End Function