I got this sub from the web and it works great
My questions is: each time I change the model and rerun the macro,is there a way to replace the workpoint in a new location insteadof creating a new WorkPoint each time I run it

Thx, Chris

Sub main()
Set swApp = Application.SldWorks
Set ModelDoc = swApp.ActiveDoc
MassProp = ModelDoc.GetMassProperties2(status)
ModelDoc.Insert3DSketch2 (True)
Set Sketch = ModelDoc.GetActiveSketch2
ModelDoc.SetAddToDB (True)
Set Point = ModelDoc.CreatePoint2(MassProp(0), MassProp(1),MassProp(2))
ModelDoc.SetAddToDB (False)
ModelDoc.Insert3DSketch2 (True)
Sketch.Name = "CoG " & Format\\\$(Now, "dd.mm.yyyy hh:mm:ss")
ModelDoc.EditRebuild
End SubSolidworksApi macros