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
>
>