expression.DisplayName
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example displays the name for the first animation sequence of the first slide's main animation sequence timeline.
Sub DisplayEffectName()
Dim effMain As Effect
Set effMain = ActivePresentation.Slides(1).TimeLine.MainSequence(1)
MsgBox effMain.DisplayName
End Sub