Attribute VB_Name = "local_update"
Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

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

Dim shapes1 As Shapes
Set shapes1 = body1.Shapes

Dim pocket1 As Pocket
Set pocket1 = shapes1.Item("Pocket.1")

part1.UpdateObject pocket1

End Sub