On Sun, 27 Jan 2008 11:52:06 -0600, Dave Peterson
wrote:

You could get all the cells at once, too:

Neat. I didn't realize that.

You could make the routine even shorter:

=========================
Sub ColorFormulas()
On Error Resume Next
Cells.SpecialCells(xlCellTypeFormulas).Interior.Co lor = vbYellow
End Sub
==========================


--ron