Separating Bold from After-Bold Parts of Cell Strings

[mlexcelhelpforum]

Hello!

I'm wondering how I could achieve this: extracting the bold part of a string as well as the non-bold part that follows it, and pasting each to a different column in another worksheet. The source is on Sheet2. The result is on Sheet1.

Thank you!

ML

[tom1977]

Hi try this

Sub aa()
Dim x&
Dim c As Range
For Each c In Columns(1).SpecialCells(2)
For x = 1 To Len(c)
    If c.Characters(x, 1).Font.Bold = True Then
        c.Offset(, 1) = c.Offset(, 1) & Mid(c, x, 1)
        Else:
        c.Offset(, 2) = c.Offset(, 2) & Mid(c, x, 1)
    End If
    Next
    Next
End Sub