پرسش اجرا نشدن ماکرو

[amirahmadpoor]

سلام دوستان
بنده یک ماکرو رو از طریق یکی از گفتگوهای انجمن دریافت کردم ولی متاسفانه اجرا نمیشه. می خواستم ببینم دلیلش چی می تونه باشه. فرمان رو کپی پیست کردم داخل صفحه Module و بصورت xlsm. ذخیره کردم ولی وقتی می خوام اجراش کنم Run نمیشه. ضمنا فرمان برای ایجاد شیتهای بیشتر از روی یک لیست (که در شیت اول قرار داره) و لینک کردن هر یک از سلولهای داخل لیست به شیت مربوطه هست. ممنون میشم اگه بتونید کمک کنید. کد رو بصورت زیر در گفتگو قرار داده بودند:
Sub sheetnaming()
Sheets("Sheet1").Select
c = Range("B1").Value
For e = 2 To c + 1
Name = Range("A" & e).Value
Sheets("Sheet2").Select
Sheets("Sheet2").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = Name
Sheets("Sheet1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & e), Address:="", SubAddress:=Name & "!A1", TextToDisplay:=Name
Next e
End Sub

Sub sheetnaming()
Sheets("Sheet1").Select
c = Range("B1").Value
For e = 2 To c + 1
Name = Range("A" & e).Value
Sheets("Sheet2").Select
Sheets("Sheet2").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = Name
Sheets("Sheet1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & e), Address:="", SubAddress:=Name & "!A1", TextToDisplay:=Name
Next e
End Sub

[Amir Ghasemiyan]

سلام دوست عزیز
لطفا فایلتون رو پیوست کنید دقیقتر بشه بررسی کرد. ظاهر این کد که مشکلی نداره. مگر اینکه شیت های sheet1 و sheet2 وجود نداشته باشند و یا در سلول B1 عدد مناسبی وارد نشده باشه