Hejsan jag försöker att få till en excel fil där jag har löst att från en lista skapa bladflikar med namnen från listan 

Har också en fomel på varje sida som visar flikens namn ( i cellen I2 ) 

=EXTEXT(CELL("filnamn";A1);HITTA("]";CELL("filnamn";A1))+1;30)

Jag vill att mitt macro skall hämta upp bladflikens namn och namge C4:E15 till det namn som bladfliken har 

Syftet är att jag på en samlad plats kan skriva in namnen typ  = Kalle + Pelle + Anna

Mitt försök stannar på denna rad : Set ws = wb.Worksheets = ActiveSheet.Name

Hoppas på lite hjälp från lite PROS . 

Sub Macro01()
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Dim rng As Range
Dim wb As Workbook, ws As Worksheet
Set wb = ActiveWorkbook
Set ws = wb.Worksheets = ActiveSheet.Name
Set rng = ws.Range("C4:E15")
ws.Names.Add Name:=I2, RefersTo:=rng
Set rng = Nothing
Set ws = Nothing
Set wb = Nothing
End Sub