Or do it all in one line:

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

<vbg

Gord Dibben 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.

--

Dave Peterson