Extract bold letters in a cell

Hello!
I have a great list of names in a column.
The names are in bold letters, and the titles is in normal letters.

Is there a way to extract only the bold letters from these cells?

I have spent a few hours searching for this but haven't seen any solutions
for it.

Most thankful
/Henrik

Thank you! It really solved my case.
Is there a code for "normal" as well as "bold".
I´d like to extract also the other part that is unbolded
regards /Henrik

"Stefi" wrote:

> It can be solved with a UDF:
>
> Function ExtrBold(str)
> ExtrBold = ""
> For s = 1 To Len(Range(str).Value)
> If Range(str).Characters(1, s).Font.Bold Then
> ExtrBold = Left(Range(str).Value, s)
> Else
> Exit Function
> End If
> Next s
> End Function
>
> Usage:
>
> =ExtrBold(ADDRESS(1,1,4,1))
>
> where ADDRESS(1,1,4,1) refers to cell A1
>
> Regards,
> Stefi
>
> „hbamse” ezt �*rta:
>
> > Hello!
> > I have a great list of names in a column.
> > The names are in bold letters, and the titles is in normal letters.
> >
> > Is there a way to extract only the bold letters from these cells?
> >
> > I have spent a few hours searching for this but haven't seen any solutions
> > for it.
> >
> > Most thankful
> > /Henrik
> >
> >