Thanks for both responses.

The one that works best for me is:

Worksheets("Sheet40").Range("A1") = _
* * * * * *Cells.SpecialCells(xlCellTypeConstants).Count + _
* * * * * *Cells.SpecialCells(xlCellTypeFormulas).Count

Rick Rothstein (MVP - Excel)