assembling the parts counting macro ?

I need a macro that counts the selected parts with the mouse assembly?