Group name change

[vmjan02]

I have this code and is all perfect. the only think to modify is that the group names should be the same.

After copu and paste the Group 1 and Group 2 and Group 4 names changes, is there a way so that the names don't change after copy and paste.

Sub Macro1()

Dim Apath As String
Dim Aname As String
Dim AbSource As Workbook


Apath = ActiveWorkbook.Path  ' & "\" & "Okala RawFile Daily"
Aname = Dir(Apath & "\" & "Fixed Data.xlsx")


Windows("Okala Automation File.xlsm").Activate
ActiveWorkbook.Sheets("Region").Activate
ActiveSheet.Shapes.Range(Array("Group 1", "Group 2", "Group 4")).Select
Selection.Copy
    



Set AbSource = Workbooks.Open(Apath & "\" & Aname)
Windows(Aname).Activate
Sheets("Region BM").Activate

On Error Resume Next
ActiveSheet.Shapes.Range(Array("Group 1", "Group 2", "Group 4")).Select   'this name should be the same.
Selection.Delete


Range("A38").Select
ActiveSheet.Paste

End Sub

 

[julhs]

Start by renaming “Group 1”, “Group 2”, “Group 3”, I suspect they are what Excel assigned to the group when you grouped the shapes.
So change to; “Group 1a”, “Group 2a”, “Group 3a” for example
That should preserve the Groups names when they are copied.
Experiment with doing a simple copy and paste of “Group 1”, you will find that the pasted “Group 1” is now NOT labelled “Group 1” but ie “Group 20”.
BUT if you copy and paste “Group 1a” the pasted group remains labelled “Group 1a”

 

[vmjan02]

Perfect, solved the problem

 

[julhs]

Glad I can help this time