Delet row if bold
Sub DeleteBold()
set rng =Range("a1: a" &[a65536].End(xlup).Row)
For each c in rng
If c.font.Bold = True Then
c.Clear
End if
Next
End Sub
DM
"jeffbert" wrote in message
...
Does anyone have a macro to evaluate column A and delete if formatting is
<bold?
|