Extract Bold Text from cell

Hello,

I have a column of text that has some words that are formatted in "Bold".

Douglas DC-9 aircraft
Hughes aircraft

I was hoping someone here could help me write a vba macro to loop through all the rows and pull out only words in Bold and place them in the adjacent column.

Thanks in advance.

Try with this code:

Please Login or Register  to view this content.

I hope it can help you.

Regards,
Antonio

Thanks Antonio,

One problem I'm having is that if the first word is Bold (or there is only one word) then Macro skips to the un bold part of the phrase or does nothing.

I've attached an example.

This fixed my problem

Sub Macro1()
Dim txt As String
lastRow = Cells(Rows.Count, "a").End(xlUp).Row
For Each c In Range("a1:a" & lastRow).Cells
myBoldText = ""
For i = 1 To Len(c.Value)
If c.Characters(Start:=i, Length:=1).Font.FontStyle = "Bold" Then

txt = Mid(c.Value, i, 1)
'text in bold
myBoldText = myBoldText & txt

End If
Next
c.Offset(0, 1) = myBoldText
Next
End Sub

Thanks for the help.