سوال در مورد vba

[امین نیما]

با درود و تشکر از جناب iranweld
دوست عزیز اگر درست متوجه منظورتون شده باشم در واقع شما میخواین با کلیک بر روی یک کلید (مثلا باتن 51) بصورت یکجا کار (زیربرنامه های) تمام کلید ها (مثلا باتن های 1 تا 50) رو انجام بده.
واسه این کار کافیه کد زیر رو بنویسید و آن رو به باتن 51 نسبت دهید.
نکته: این کد کاملا پویا می باشد و محدودیتی در تعداد کلیدهای موجود و همچنین نامگذاری آنها و حتی نامگذاری زیربرنامه های مربوطه وجود ندارد.

Sub Run_All_Button()
    Dim btn As Shape
    For Each btn In ActiveSheet.Shapes
        If btn.Type = msoFormControl And Application.Caller <> btn.Name Then
            Application.Run btn.OnAction
        End If
    Next
End Sub 

اگر مشکلی در این مورد داشتین در خدمتم.
موفق باشین

با سلام خدمت شما دوست عزیز و محترم
ممنون از پاسخ گویی شما
از فرمول شما استفاده کردم جواب میده فرمول شما فقط دیباگ میزنه تو vba این قسمت فرمول زرد رنگ میشود Application.Run btn.OnAction