Bob,

Try this function:

Function getboldtext(sz_cell As String)
Dim i As Long
Dim s As String
s = ""
For i = 1 To Len(Range(sz_cell))
If Range(sz_cell).Characters(i, 1).Font.Bold = True Then
s = s & Range(sz_cell).Characters(i, 1).Text
End If
Next i
getboldtext = s
End Function

and put in column b =getboldtext("A1")


"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