I think that I voiced out my request in an unclear way. Bob's solution is
the nearest one to what I want.

I in fact want to use one cumstomized shortcut key to call out the Fill
Color which originally locates in the Formatting Toolbar.

Thanks to you all!


"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
Assign this to shortcut key.

Sub test()
With ActiveCell
MsgBox .Interior.ColorIndex
End With
End Sub

If you want the value placed in an adjacent cell..............

Sub test()
With ActiveCell
.Offset(0, 1).Value = .Interior.ColorIndex
End With
End Sub


Gord Dibben MS Excel MVP


On Tue, 24 Jun 2008 22:12:49 +0800, "pwz" wrote:

Any scripts can call out the Fill Color by a customized shortcut key? It
will be excellent if it can be popped up nearby the active cell. Thanks
in
advance for any help!

Pat