Type Info:
Parent As Groups
Dim Groups, Groups2 As Groups Dim Group As Group Set Groups = Application.ActiveProjectFile.SubFiles(1).Groups Set Group = Groups.Item(1) Set Groups2 = Group.Parent