VBA / Macro

Skulle nok kunne lade sig gøre - vender tilbage efter frokost...

Her er en løsning. Marker de cedller, der indeholder navneo g afspil makroen. Hvis et navn allerede eksisterer som ark, får du en fejlmeddelse.

Sub NyeArk()
    On Error GoTo fejl
        For Each c In Selection.Cells
        sname = c.Value
        If Not IsEmpty(c) Then
            Sheets.Add
            ActiveSheet.Move after:=Sheets(Sheets.Count)
            ActiveSheet.Name = c.Value
        End If
    Next c
    Exit Sub

fejl:

    If Err.Number = 1004 Then
        MsgBox "Mindst et af de ark, du prøver at oprette eksisterer allerede" & vbCrLf & _
        "Ret fejlen og prøv igen", vbOKOnly + vbCritical
        Application.DisplayAlerts = False
        ActiveSheet.Delete
        Application.DisplayAlerts = True
    End If
End Sub

Jeg takker, den virker som den skal.

Ligger du et svar?

Her er et svar.