On Mon, 29 Sep 2003 19:09:04 -0400, "Tom Ogilvy"
wrote:

Thanks Tom I will give it a whirl.

Jim


Perhaps:

Dim rng as Range
On Error Resume Next
set rng = Cells.SpecialCells(xlCellTypeAllFormatConditions)
On Error goto 0
if not rng is nothing then
rng.select
End if