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

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" <(E-Mail Removed)> wrote in message
news:3356260F-2E03-48D3-8EC0-(E-Mail Removed)...
>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

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" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
> news:3356260F-2E03-48D3-8EC0-(E-Mail Removed)...
>>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
>
>