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
ShapeRange.MoveToLayer method - Developer Area - CorelDRAW Community