Extract bold letters in a cell
 

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