Macro to change the Fill-Color command color

Instead of having to use the drop down menu of colors to select the fill color, I would like to have a macro that does the following:
1. First, before executing the macro, select a cell from a group of cells that already have different color fills.
2. Run the macro (click on the button assigned to the macro)
3. The macro would detect the color of the cell that had been selected and change the color of the Fill-Color command button to that color.

Now, any cell selected can be changed to the desired color by just clicking the Fill-Color command button without having to use the menu of colors.

Thanks!

Alex