Уменьшение кода макроса

[tsap]

Добрый день всем завсегдатаям форума!

Возникла ситуация следующего характера:
На листе Эксель имеется порядка 10 текстовых полей, при нажатии на которые должен в определенную ячейку записываться текст, введенный в текстовое поле. Получается 10 разных процедур с дублированием операции. Можно ли как-то это упростить, или это и все?
Сейчас код выглядит так:

Sub TextBox10_Щелчок()
Dim Curobj As Object
Dim text As String
Set Curobj = ActiveSheet.Shapes(Application.Caller).OLEFormat.Object
text = Curobj.text
Worksheets("inf").Range("c2").Value = text
End Sub

[EducatedFool]

1) Всем текстбоксам назначаем один и тот же макрос
2) адрес ячейки, куда попадет текст, прописываем в свойстве TAG текстбокса

Макрос будет выглядеть так:

sub TextToCell()
On Error Resume Next
  with ActiveSheet.Shapes(Application.Caller).OLEFormat.Object
      Worksheets("inf").Range(.tag).Value = .text
  end with
end sub

PS: зачем вообще макрос?
почему бы текстбоксы не связать сразу с нужными ячейками?
или, вообще, не сделать ввод напрямую в ячейки?

[Hugo121]

Ну или как вариант - написать один исполняющий работу макрос с параметром (или двумя), куда посылать по нажатию сам текстбокс.
Чтоб писать код - нужен пример файла.

[alex77755]

На листе Эксель имеется порядка 10 текстовых полей,
Sub TextBox10_Щелчок()

В какой версии есть такие процедуры?
в моих трёх (2003, 2007, 2010) нет таких

[alex77755]

Как вариант можно засунуть все текстбоксы в массив и назначит одну процедуру

[tsap]

Во-первых, извиняюсь за столь долгий ответ- не было возможности отписаться раньше .
Во-вторых, спасибо всем,кто откликнулся на мой вопрос, и тем самым помог в небольшой оптимизации сего "творения" =) .
Скажу сразу, последовал совету и завязал все текст-боксы на 1 макрос, немного изменив код, как подсказал EducatedFool. Прикрепляю файл (с условными названиями и картинками), кому интересно, для чего все эти заморочки с текст-боксами и прочим..
Кратко отвечу на вопросы:

Сообщение от EducatedFool

PS: зачем вообще макрос?
почему бы текстбоксы не связать сразу с нужными ячейками?
или, вообще, не сделать ввод напрямую в ячейки?

Все 10 завязаны с 1 ячейкой. В зависимости от выбора пользователя, текст в этой ячейке должен поменяться.

Сообщение от alex77755

В какой версии есть такие процедуры?
в моих трёх (2003, 2007, 2010) нет таких

в 2013