Как сделать VBA макроподстановку. Необходимо подставить имя объекта.
Форма формируется автоматически на основании таблицы с соответствующими полями, для каждого поля необходимо создать событие onClick.

Dim MyControl As Control, x As Integer, MyControlName(15) As String
x = 0
перебор всех контролов на форме
For Each MyControl In Forms("FormaTemp").Controls
With MyControl
x = x + 1
MyControlName(x) = .name
If MyControlName(x) = "A" Then
Собственно тут возникает ошибка
MyControlName(x).OnClick = "[Процедура обработки событий]"
End If
End With
Next MyControl

CtrlAlt спасибо все получилось.