Dissolve all subassemblies macro

Hello,

I am wondering if anybody has a macro to share that traverses an assembly and dissolves all subassemblies in the current file automatically.

Thanks,

Eman