David,

Thanks for going straight to using the TimeLine object - yes I should
and will use this approach - just out of curiosity what is wrong with
this other code?

For Each oSh In oSl.Shapes
    If oSh.Type = 1 Then
        If oSh.AutoShapeType = 129 Then
            If oSh.AnimationSettings.EntryEffect = _
            ppEffectDissolve Then
            oSh.AnimationSettings.Animate = msoFalse
            End If
        End If
    End If
Next oSh
Next oSl

Cheers

Geoff

David,

I have your code working in that it removes the dissolve animation
from those action buttons which already have it but I'm not sure how I
can target this at only type 129 action buttons (backwards/ previous)
and disreguard those which have which have the text "When finished" on
them.

I have used code below before but not at all clear how I work both
with the TimeLine and particular shapes. Can you help?!

Dim oSh As Shape
For Each oSh In oSl.Shapes
   If oSh.Type = 1 Then
       If oSh.AutoShapeType = 129 Then
           If oSh.TextFrame.TextRange.Text <> "When finished" Then

Thanks

Geoff

The code I am using based on your help is as follows,

Sub check_for_button(strMyFile As String)

   Dim oPresentation As Presentation
   Set oPresentation = Presentations.Open(strMyFile)
   Dim oSl As Slide
   Dim i As Long
   
   With oPresentation
     
   For Each oSl In ActivePresentation.Slides
 
   With oSl.TimeLine
       For i = .MainSequence.Count To 1 Step -1
           If .MainSequence(i).EffectType = msoAnimEffectDissolve _
    Then
               .MainSequence(i).Delete
           End If
       Next i
   End With
               
   Next oSl
 
   oPresentation.Save
   oPresentation.Close

   End With

   Set oSh = Nothing
   Set oPresentation = Nothing

End Sub