Macro to sort by color

I need a macro to sort several tabs by cell color, putting the colored cells on the top. When I use the macro recorder it records this:

Please Login or Register  to view this content.

I need it to not include the worksheet name so that it will work on multiple tabs, but when I take the worksheet name out it doesn't work. Any ideas why this code doesn't run?

Please Login or Register  to view this content.

hi
try replacing "activeworksheet" with "activesheet"