That works, student of Gary, thanks. One more question, is there a pallet
somewhere I can look at to find those colorindexes? 46 is orange, on my
monitor anyway...

Ricter



"Gary''s Student" wrote:

If by focus you mean select, then try this:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 46
End Sub

put this in worksheet code, not a standard module.
--
Gary''s Student


"Ricter" wrote:

How would one go about setting up a sheet where any cell with the focus would
have, say, a red background?