Using the Characters.Font property of the cell - something like this
maybe...

Dim Status As String
With Range("A1").Characters.Font
If .Bold Then Status = "Bold, "
If .Italic Then Status = Status & "Italic, "
If .Strikethrough Then Status = Status & "Strikethrough, "
If .Shadow Then Status = Status & "Shadow, "
If .OutlineFont Then Status = Status & "OutlineFont, "
If .Subscript Then Status = Status & "Subscript, "
If .Superscript Then Status = Status & "Superscript, "
If .Underline Then Status = Status & "Underline, "
Status = Status & "Size=" & .Size & ", "
Status = Status & "ColorIndex=" & .ColorIndex
End With
MsgBox Status

--
Rick (MVP - Excel)


"Rolf G" wrote in message
...


Hello

Is it possible to check the fromat of a text, color and bold, in a cell?

Thanks

*** Sent via Developersdex http://www.developersdex.com ***