I wish I were. I looped through my second suggestion!

Gord Dibben wrote:

Ron

Dave's always reminding me also that you don't need the For Each.......Next in
most cases.

I am slowly learning<g

Gord

On Sun, 27 Jan 2008 13:00:09 -0500, Ron Rosenfeld
wrote:

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

--

Dave Peterson