Deleting only bold text in a cell

[FrankB]

Is there a way to automate that? My cells have bold and normal font, and I would like to delete all the bold text.

Thanks,

Frank

 

[Andy Pope]

Hi FrankB,

Here is an similar piece of code.

Sub RemoveBold()
    Dim rngTemp As Range
    Dim intPos As Integer
    Dim strTemp As String
    
    For Each rngTemp In Selection
        strTemp = rngTemp.Text
        For intPos = Len(strTemp) To 2 Step -1
            If rngTemp.Characters(intPos, 1).Font.Bold Then
                strTemp = Left(strTemp, intPos - 1) & Mid(strTemp, intPos + 1)
            End If
        Next
        If rngTemp.Characters(1, 1).Font.Bold Then strTemp = Mid(strTemp, 2)
        rngTemp = strTemp
        rngTemp.Font.Bold = False
    Next
End Sub

Just a note of caution. Both routines will remove all additional formatting that you have in a cell.

Cheers
Andy

 

[FrankB]

Works beautifully, thanks much!

Frank