Another way to get them all at once:

Select the range to fix
Edit|Goto special|Constants
click ok
hit the delete key on the keyboard.

In code:

On error resume next
Selection.Cells.SpecialCells(xlTextValues).ClearCo ntents
on error goto 0

You could specify a more exact range, too:

Activesheet.range("a1:c99").Cells.SpecialCells(xlT extValues).ClearContents

Lp12 wrote:

Hi All,
I'm looking for a way to delete cells with values but without formulas in
it? (VBA) in office 2003.
Thanks a lot in advance

--

Dave Peterson