Hi,

If you test a cell for bold and only some of the text is bold Excel throws
an error so this can be utilised in the code to simply move on and ignore
that cell.

Sub Delete_Bold_Text()
On Error Resume Next
For Each Cell In ActiveSheet.UsedRange
If Cell.Font.Bold Then
Cell.ClearContents
End If
Next
End Sub

Mike

"andrei" wrote:

I have a macro which delets content from cells if there is bold text in cell
.

Sub Delete_Bold_Text()
Dim i
For Each cell In ActiveSheet.UsedRange
cell.Select
For i = 1 To Len(ActiveCell)
If ActiveCell.Characters(Start:=i, _
Length:=1).Font.Bold = True Then
ActiveCell.ClearContents
End If
Next
Next
End Sub


The problem is that i have cells in which there is "normal" text and bolded
text and i don't want them deleted . I want to be deleted only cells in
which all text is bolded . Can this be done ?