I have the following:
Dim sweepLayer As Layer
For Each sweepLayer In ActiveDocument.ActivePage.Layers If sweepLayer.name = "RepMap" Then changedLayer = True sweepLayer.Activate Set sr = sweepLayer.Shapes Exit For End IfNext sweepLayer
For Each shapex In sr
shapex.Duplicate
' Here is where I do not know how to move the duplicated shape into some other Layer, example
' would be Layer named "DiffLayer"
Next shapex
Sub MoveShapeToLayer() Dim s As Shape Set s = ActiveShape s.MoveToLayer ActivePage.Layers(2)End SubIn your case shapex.MoveToLayer DestinationLayerName RegardsTaras