Copy one ActiveX label from one sheet to another

[Per_]

Hello,

Is it possible to keep the name of an ActiveX label when you copy the ActiveX label from sheet to another sheet?

/Per

 

[Yongle]

Like this

Sub CopyActiveX()
    Dim nm As String
    With Sheets("Sheet1").OLEObjects("LabelXYZ").Duplicate
        nm = .Name
        .Cut
    End With
    With Sheets("Sheet2")
        .Paste
        .OLEObjects(.OLEObjects.Count).Name = nm
        .Activate
    End With
End Sub