اجرا شدن یک کد ماکرو با تغییر سل a1

[amin.t]

سلام بر دوستان و اساتید محترم
چطور میشه با تغییر یک سل مثل A1 یک کد اجرا بشه .
من فایلی دارم که سل A1 دارای اسامی بصورت لیست است و می خوام با انتخاب هر اسم از لیست مورد نظر با توجه به هر اسم یک ماکرو خاص اجرا می شه ولی مشکل من زمانی پیش میاد که با انتخاب هر اسم ماکرو بطور بی نهایت برای اون اسم اجرا می شه و تمامی ندارد.(من فرمول ماکرو را در صفحه کد vb همان شیت نوشتم و گفتم در زمان تغییر شیت ماکرو اجرا بشه)
حالا چطور می تونم مشکلم رو بر طرف کنم ؟

[ali.b]

شما کدهاتون رو نذاشتین شاید مشکل از کدتون باشه؟
کلا برای اجرا ماکرو با شرط بر نوع متن سلول ها از روش زیر استفاده میشه

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
    If Target.Value = "A" Then Call a
End if
    If Target.Value = "B" Then Call Macro1
    End If
End If
End Sub

یعنی اگه در سلول A1 کلمه A بود شما ماکرو به نام A رو اجرا کن اگه در سواو A1 کلمه B بود ماکروی به نام Macro1 رو اجرا کنه
در ضمن این کد رو باید در قسمت vb اون شیت مورد نظر بزارین

[ali.b]

در ضمن یادتون باشه به ازای هر if مینویسین باید ی end if هم باشه

[بهرامن]

سلام این کد وقتی مقدار a1 را دستی وارد میکنم عمل میکند. ولی اگر a1 فرمول داشته و مقدارش با فرمول اعمال بشه، این کد عمل نمیکنه. در این حالت چه باید کرد؟