Macro to color selected body in mulitibody part

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


Thanks in advance

Klaus