Sub remove_bold()
Set c = Selection
For Each cell In c
MY_ROW = cell.Row
MY_COLUMN = cell.Column
NEW_TEXT = ""
For MY_CHAR = 1 To Len(ActiveCell)
NEW_CHAR = Mid(ActiveCell, MY_CHAR, 1)
With ActiveCell.Characters(Start:=MY_CHAR, Length:=1).Font
If .FontStyle <> "Bold" Then
NEW_TEXT = NEW_TEXT + NEW_CHAR
End If
End With
Next MY_CHAR
Range("a1").Offset(MY_ROW - 1, MY_COLUMN - 1).Value = NEW_TEXT
Next cell
End Sub
Sub remove_bold()
Set c = Selection
For Each cell In c
MY_ROW = cell.Row
MY_COLUMN = cell.Column
If Range("a1").Offset(MY_ROW - 1, MY_COLUMN - 1).Font.FontStyle = "Bold" Then
Range("a1").Offset(MY_ROW - 1, MY_COLUMN - 1).Font.FontStyle = "Regular"
End If
NEW_TEXT = ""
For MY_CHAR = 1 To Len(ActiveCell)
NEW_CHAR = Mid(ActiveCell, MY_CHAR, 1)
With ActiveCell.Characters(Start:=MY_CHAR, Length:=1).Font
If .FontStyle <> "Bold" Then
NEW_TEXT = NEW_TEXT + NEW_CHAR
End If
End With
Next MY_CHAR
Range("a1").Offset(MY_ROW - 1, MY_COLUMN - 1).Value = NEW_TEXT
Next cell
End Sub
Sub remove_bold()
Set c = Selection
For Each cell In c
MY_ROW = cell.Row
MY_COLUMN = cell.Column
If Range("a1").Offset(MY_ROW - 1, MY_COLUMN - 1).Font.FontStyle = "Bold" Then
Range("a1").Offset(MY_ROW - 1, MY_COLUMN - 1).Clear
End If
NEW_TEXT = ""
For MY_CHAR = 1 To Len(Range("A1").Offset(MY_ROW - 1, MY_COLUMN - 1))
NEW_CHAR = Mid(Range("A1").Offset(MY_ROW - 1, MY_COLUMN - 1), MY_CHAR, 1)
With Range("A1").Offset(MY_ROW - 1, MY_COLUMN - 1).Characters(Start:=MY_CHAR, Length:=1).Font
If .FontStyle <> "Bold" Then
NEW_TEXT = NEW_TEXT + NEW_CHAR
End If
End With
Next MY_CHAR
Range("a1").Offset(MY_ROW - 1, MY_COLUMN - 1).Value = NEW_TEXT
Range("a1").Offset(MY_ROW - 1, MY_COLUMN - 1).Font.FontStyle = "Regular"
NEW_TEXT = ""
Next cell
End Sub