Careful with this one... if any of the cells have formulas in them, those
formulas will disappear. Perhaps this test would be better...

If Not cell.HasFormula Then If Len(cell.Value) Then cell.Value = cell.Value

--
Rick (MVP - Excel)


"Robert Flanagan" wrote in message
...
You could do something like this:

for each cell in selection
if not isempty(cell) then cell.value = cell.value
next

Robert Flanagan
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

"The Howler" wrote in message
...
I am trying to write a macro to clear ALL format in a range of cell.
However,
I run into a problem.

I am using the Selection.ClearFormats command and it works in most cases,
but fails when multiple format are applied to the cell.

For example if a cell only contains "Hello wonderful world" all in bold
than
ClearFormats will remove the bold formatting. But if the cell contains
"Hello wonderful world" where only "wonderful" is in bold, than
ClearFormats does not work and the word "wonderful" remains in bold.

Does anyone know how to clear format all the time.

Thanks