ایجاد شیت جدید با گرفتن نام از سلول

[ali.b]

سلام
میخواستم بدونم چطوری امکان داره هر بار شیت جدید ایجاد کردم نامش خودکار از سلول مورد نظر گرفته بشه

Sub Macro2()    Sheets("Sheet1").Select
    Sheets.Add After:=ActiveSheet
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = "1"
    Sheets("Sheet1").Select
End Sub

[ali.b]

Sub tabname()Dim ws As Worksheet
For Each ws In Worksheets
    On Error Resume Next
    If Len(ws.Range("a1")) > 0 Then
        ws.Name = ws.Range("a1").Value
    End If
    On Error GoTo 0
    If ws.Name <> ws.Range("a1").Value Then
        MsgBox ws.Name & " Was Not renamed, the suggested name was invalid"
    End If
Next
End Sub

[ali.b]

Sub x()      
    Dim ws As Worksheet 
     
    For Each ws In Sheets 
        ws.Name = ws.Range("A1") 
    Next ws 
     
End Sub

این کد هم نام همه شیت های موجود رو میگیره اما من فقط میخوام برای ی شیت کار کنه یعنی شیتی که جدید و با کد vb ساخته میشه

[Ali Parsaei]

اگر شيت جديد آخر همه شيت ها تشکيل شود و نامش را هم از خانه A1 اولين شيت بگيرد کدش به صورت زير خواهد بود:

Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Sheets(1).Range("A1").Value