Any Macro to create "Center of Volume" for an Assy in SW2013?

It would be very helpful if any of you has a macro that can be used to creat Center of Voulme in Solidworks 2013 version.

I have gone through this thread and found a macro shared by Chris Szlateny, Unfortunately it's not working in 2013.

https://forum.solidworks.com/message/56779

Thank you in advance.

SolidworksGeneral