תיבות טקסט

שבוע טוב בניתי טופס למילוי דוח. הקוד מכיל בלוק שחוזר על עצמו מספר פעמים ואני רוצה להחליפו בפרוצדורה אבל לא יודע איך לפנות לתיבת טקסט בטופס כמשתנה. להלן הבלוק החוזר: Private Sub TextBox_a17_Change() If Range("h10") = "" Then Range("a16") = TextBox_a17 cell = "a16"...