Jason,

If no cells were found, then either you don't have any cells with
formulas, or you don't have any cells with constants. In either case,
after the line:

Dim myCell As Range

put this line:

On Error Resume Next.

HTH,
Bernie
MS Excel MVP

"Jason Watts" wrote in message
...
Bernie, I am using excel xp, I tried your new macro and got a
Run-time error '1004': No cells were found. Hope this helps.