Sub active() With ActivePresentation .Slides(2).Shapes(1).PickUp .Slides(4).Shapes(3).Apply End With End Sub