ایجاد شیت خودکار از لیست در اکسل

[ali.b]

سلام
گاهی تو برنامه نویسی تحت اکسل برامون پیش میاد که مدام باید نام شیت ها تغییر کنن و از طرفی نام شیت ها هم در یک شیت موجوده و ممکنه هر بار تغییر کنه
این کد نام ها رو از ی رنج در یک شیت میگیره و خودکار تشکیل شیت میده.
حالا هرکسی خواست بعد از پایان فرایند اجرای کد ، شیت ها رو پاک کنه میتونه تو تالار از نحوه پاک کردن شیت ها تحت Vb استفاده کنه و دوباره از نو بر حسب نامهای موجود در محدوده شیت بسازه

Sub AddMoreSheets3()    Dim ListOfNames As Variant, ShName As Variant
    ListOfNames = Sheets("[COLOR=#006400]sheet1[/COLOR]").Range("[COLOR=#b22222]A1:A5[/COLOR]").Value 'Modify accordingly.
    For Each ShName In ListOfNames
        Set NewSht = ThisWorkbook.Sheets.Add([COLOR=#0000cd]Before[/COLOR]:=Sheets(Sheets.Count))
        NewSht.Name = ShName
    Next ShName


End Sub

در قسمتی که رنگش سبزه نام اون شیت حاوی نام های مورد نظر هست. و قسمت قرمز هم رنج محدوده ای که باید نام شیت رو از اون بگیره
درضمن نام شیت های ایجاد شده قبل از شیت اصلی ایجاد میشن که اگه خواستین تغییر بدین به جای قسمت ابی، گزینه after بیارین