Sorry for misunderstanding your query, these are imported bodies within Parts. So pack and go won't work. Also the macro would need to be modified for renaming the bodies and not part.
No problem. that is what I'm working on doing. I have it renaming all files in the hierarchy but still working on making it rename the imported bodies. hopefully it works out.