Sub CATMain()

REM Works in an active sheetmetal CATPart, create new specific named geometrical sets and launch Reorder Children command

Dim oPartDoc As Part
On Error Resume Next
Set oPartDoc = CATIA.ActiveDocument.Part    
If Err.Number <> 0 Then                   
Message = MsgBox("Sorry, This script works with a CATPart as Active document, so please open CATPart in a new window", vbCritical, "Error")
Exit Sub
End If

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim HB0,HB1,HB2,HB3,HB4 As HybridBodies
Set HB0 = CATIA.ActiveDocument.part.HybridBodies
Set HB1 = CATIA.ActiveDocument.part.HybridBodies
Set HB2 = CATIA.ActiveDocument.part.HybridBodies
Set HB3 = CATIA.ActiveDocument.part.HybridBodies
Set HB4 = CATIA.ActiveDocument.part.HybridBodies

'Dim HB1,HB2,HB3,HB4 As HybridBody
Set HB0 = HB0.Add()
Set HB1 = HB1.Add()
Set HB2 = HB2.Add()
Set HB3 = HB3.Add()
Set HB4 = HB4.Add()

HB0.Name = "Cleaning"
HB1.Name = "GeometrySupport"
HB2.Name = "OuterLine"
HB3.Name = "Holes"
HB4.Name = "UnfoldedHoles"

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("PartBody")

part1.InWorkObject = body1

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

selection1.Search "Name=V92*,all"

part1.Update 

CATIA.StartCommand "Reorder children"

End Sub