Hi,
The following macro looks at each cell in the selected range and copy the
non-bold text to the next cell on its right. Eg -- To process A1:A10
- make sure there is no data in B1:B10 (it will be the output), else insert
a column
- select A1:A10
- run the macro
-- the output is sent to B1:B10 so you can review and make sure it is what
you want before deleting cells in A

'-----------------------------------------------------------------
Sub RemoveBoldText()
Dim RgSource As Range, cell As Range
Dim cellTxt As String, c As Characters, txtOut As String
Dim cellLen As Long, i As Long

Set RgSource = Selection

Application.ScreenUpdating = False
For Each cell In RgSource.Cells
txtOut = ""
cellLen = cell.Characters.Count
For i = 1 To cellLen
If cell.Characters(i, 1).Font.Bold = False Then
txtOut = txtOut & cell.Characters(i, 1).Text
End If
Next
cell.Offset(0, 1) = txtOut
Next

End Sub
'------------------------------------------------------------

--
Regards,
Sébastien
<http://www.ondemandanalysis.com


"Bob" wrote:

Hi all,
This group has been very helpful to me and Thank you for your help and quick
respond.

I don't think this is duable, but since I do not have programming
experience, I thought asking you.

I have a sheet that has 5000 records. User has to fill out column B with
the correct name, based on a column A I provided. E.g. Col A
HOUSE OF EUROPE
FUNDING IV PLC
In col B he has to fix this name and enter: FUNDING IV PLC
He didn't do so . Instead he highlighted BOLD in col A "FUNDING IV PLC" and
said use in col B highlighted name.
Question: Is there any way for me to say update Col B with part of the name
that is Bold on col. A? Otherwise I have to do this manually for 500 rec.

Thanks a lot

--
Bob