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