With just a few variable name changes the code worked!! It even gave me enough insight to add animation to the third shape on the slide to appear with the previous animation.
Set oshp = Sld.Shapes(3)
Set oeff = Sld.TimeLine.MainSequence.AddEffect(oshp, msoAnimEffectAppear, _
msoAnimateLevelNone, msoAnimTriggerWithPrevious)
Thanks for the help!!
Why did MS take away the macro recorder in PowerPoint.