פניה לתיבת טקסט כמשתנה

[Guman1973]

שבוע טוב

בניתי טופס למילוי דוח.

הקוד מכיל בלוק שחוזר על עצמו מספר פעמים ואני רוצה להחליפו בפרוצדורה אבל לא יודע איך לפנות לתיבת טקסט בטופס כמשתנה.

להלן הבלוק החוזר:

Private Sub TextBox_a17_Change()

If Range("h10") = "" Then
Range("a16") = TextBox_a17
cell = "a16"
Else
Range("a17") = TextBox_a17
cell = "a17"
End If

Range(cell).Font.Size = 18

End Sub

תודה רבה רבה מראש