Hi
I am trying to Pickup and Apply formatting from Grouped shapes in one ppt a simular grouped shapes in another ppt.
Need some assistance to make it work.

Sub formattingChange()

Dim oPPT1 As Presentation
Dim oPPt2 As Presentation


Set oPPT1 = Application.Presentations("testppt")
Set oPPt2 = Application.Presentations("testppt2")


With Windows("testpp2").Selection.ShapeRange("3kant").PickUp
With Windows("testppt").Selection.ShapeRange("3kant").Apply


End Sub
the VBA returns with Expected function or variable.

Hope someone have an easy fix.