As Dave Peterson points out in another message, this could be changed to do all
cells at once without the loop.

Sub color_it()
Selection.Interior.ColorIndex = 3 'red
End Sub


Gord

On Thu, 17 Jan 2008 16:05:06 -0800, Gord Dibben <gorddibbATshawDOTca wrote:

None that I have ever heard of.

A macro with a shortcut key could do the trick

Sub color_it()
For Each cell In Selection
cell.Interior.ColorIndex = 3 'red
Next
End Sub

Assign a shortcut key combo.


Gord Dibben MS Excel MVP

On Thu, 17 Jan 2008 15:42:00 -0800, Cindy
wrote:

is there a keyboard short cut or a way to create a shortcut to hightlight a
cell easily with a default or specific color.