How to find out if part of text in a cell is formatted differently

[IFK]

Hello,

I need to find out via VB and Excel objects if some part of text in a range (my range = one cell) is formatted.

E.g. the text = "This is a TEST"

In this case I need to know that TEST is bold.

Is there a way to do that?

Thanks a lot,
IFK

 

[SkipVought]

IFK,

You have to look at each character in the cell

    For i = 1 To ActiveCell.Characters.Count
      If ActiveCell.Characters(Start:=i, Length:=1).Font.Bold Then
        MsgBox ActiveCell.Characters(Start:=i, Length:=1).Text
      End If
    Next

Skip,

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[IFK]

Thanks Skip, that worked great!