expression.OnUndo
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
Valid values for this property are "macroname" where macroname is the name of macro, "[Event Procedure]" which indicates the event procedure associated with the Undo event for the specified object, or "=functionname()" where functionname is the name of a user-defined function. For a more detailed discussion of event properties, see "Event Properties."
Example
The following example specifies that when the Undo event occurs on the first form of the current project, the associated event procedure should run.
Forms(0).OnUndo = "[Event Procedure]"
The following example specifies that when the Undo event occurs in any text box on the first form of the current project, the associated event procedure should run.
Dim ctlLoop As Control
For Each ctlLoop In Forms(0).Controls
If ctlLoop.Type = acTextBox Then
ctlLoop.OnUndo = "[Event Procedure]"
End If
Next ctlLoop