Automatically give new sheet name (created frm template w/macro) the value of a cell

[Bob Phillips]

Sub KompMedarb5()
 '
 ' KompMedarb5 Makro
 ' lag nytt ark, gå tilbake til mal og slett alt, gå til startside
 '
 '
Dim ws As Worksheet

    With ActiveSheet
    
        Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
        .Cells.Copy
        ws.Paste
        ws.Name = .Range("S10").Value
    End With
    
    With Sheets("Kompetansekort")

        .Range("S6,S8,S10,R16:V22,S26:AD30,S34:AD36").ClearContents
    End With

    Worksheets("Startside").Select
    Range("A1").Select
End Sub