Selection to New Page - Macro - Update

[CgsAddInMacro]
public void MoveSelectionToNewPage()
{
    ShapeRange sr = corelApp.ActiveSelectionRange;
    if (sr.Count == 0)
        return;
    Page page = corelApp.ActiveDocument.AddPages(1);
    Layer layer = page.ActiveLayer;
    sr.MoveToLayer(layer);
    DataSourceProxy proxy = corelApp.FrameWork.Application.DataContext.GetDataSource("WPageDataSource");
    proxy.InvokeMethod("OnRenamePage");
    
}

Converted to VBA by ChatGPT

Sub MoveSelectionToNewPage()
Dim sr As ShapeRange
Set sr = ActiveSelectionRange

If sr.Count = 0 Then
Exit Sub
End If

Dim newPage As Page
Set newPage = ActiveDocument.AddPages(1)

Dim layer As Layer
Set layer = newPage.ActiveLayer

sr.MoveToLayer layer

Dim proxy As DataSourceProxy
Set proxy = Application.FrameWork.Application.DataContext.GetDataSource("WPageDataSource")
proxy.InvokeMethod "OnRenamePage"
End Sub

Sub MoveSelectionToNewPage()
Dim sr As ShapeRange
Set sr = ActiveSelectionRange
sr.Cut 'Move Selection
'sr.Copy 'Copy Selection
ActiveDocument.AddPages 1
ActivePage.ActiveLayer.Paste
myname = InputBox("Page Name?", "RENAME PAGE")
If Trim(myname <> "") Then
ActivePage.Name = myname
End If
End Sub