Does anyone know of a macro that will color a selected body in multibody a part?

Thanks in advance

Klaus