Macro to clear all Bold Items in Col B

[howard]

I have tried to write code to clear all bold items in col B on sheet "Data Import"


However when running my code no items are being cleared

 Sub Clear_BoldItems()
With Sheets("Data Import")
Dim LR As Long
    LR = .Cells(.Rows.Count, "B").End(xlUp).Row
        If .Range("B1:B" & LR).Font.Bold = True Then
        .Range("B1:B" & LR).ClearContents
          End If
        End With
       
       
End Sub

It would be appreciated if someone could kindly amend my code.

 

[mohadin]

Hi
Try

Sub Clear_BoldItems()
    With Sheets("Data Import")
        Dim LR As Long
        LR = .Cells(.Rows.Count, "B").End(xlUp).Row
        For i = 1 To LR
            If .Range("B" & i).Font.Bold = True Then
                .Range("B" & i).ClearContents
            End If
        Next
    End With
End Sub

 

[Rick Rothstein]

You can also do this without using any loops at all...

Sub Clear_BoldItems()
  With Application
    .FindFormat.Clear
    .FindFormat.Font.Bold = True
    Sheets("Data Import").Columns("B").Replace "", "", xlWhole, , , , True, False
    .FindFormat.Clear
  End With
End Sub

 

[howard]

Thanks Mohadin & Rick for your help


However when running the code the bold items are not being cleared


See my Sample Data below

Kindly test & amend code so that the bold items are cleared (The data has been imported in this format)

Macro to Clear Bold Items in Col B.xlsm

1drv.ms

 

[YasserKhalil]

In Rick's code just change this line

.FindFormat.Font.Name = "Arial Bold"

instead of this line

.FindFormat.Font.Bold = True

 

[Rick Rothstein]

I am not sure why, but even though you show the file as an xlsm type file, I cannot download it to my computer... it only opens in the online version of Excel where nothing shows as bold. Also, in reference to YasserKhalil's post, I only see all the cells as having Arial font, not Arial Bold, but if that is how you made the bolded the text, his proposed changed to my code should work for you.

 

[howard]

Thanks YasserKhahill for your input. It now works perfectly

Ricky, not sure why file cannot be downloaded, but glad problem has been resolved