קריאה לUserForm דרך מאקרו באקסל

[חנון המרבה]

יש לי כמה UserForms, ולכל אחד יש שם אחר, השמות של הUserForm הוא כמו ערך של תא מסויימת, נניח שיש לי תאים אלו

ויש לי UserForms בשמות אלו

• 25065 UserForm
• 15849 UserForm
• 24486 UserForm
• 14168 UserForm

ואני רוצה שבעת לחיצה על התא יפתח לי הUserForm ששמו הוא כשם התא, השאלה איך אני מכניס משתנה לשם אובייקט בVBA
(איך אני מפעיל את המאקרו בעת שאני עובר לתא - אני יודע, נתקעתי בהכנסת משתנה שנושא את ערך התא הפעיל לתוך האובייקט)
זה אמור להיראות בערך כך

i = ActiveCell.Value
Set x = UserForm & i

תודה לעוזרים.

[OdedDvir]

@חנון-המרבה ראשית עליך לאפשר גישה למודול האובייקטים של VBA במרכז יחסי האמון, כי כברירת מחדל הגישה חסומה מטעמי אבטחה.
קובץ > אפשרויות > מרכז יחסי האמון > הגדרות מרכז יחסי האמון > תן אמון בגישה למודול האובייקטים של פרוייקט VBA

כעת תדביק במודול של חוברת העבודה את הקוד הבא:

Public Sub OpenUserFormByName(UserFormName As String)
    VBA.UserForms.Add(UserFormName).Show
End Sub

ותקרא לפונקציה כך (בהנחה שבדקת שגיאות בשם הטופס ותוכן התא):

OpenUserFormByName "UserForm" & CurrentCell.Value