Howdy. This is a function in VBA, that you can access as any other function in Excel.
Code:
Function ISITALIC(cell) As Boolean
'Returns TRUE if cell is italic
'Returns error if the cell is mixed
ISITALIC = cell.Range("A1").Font.Italic
End Function
The following will return TRUE if all characters are italic.
Code:
Function ALLITALIC(cell) As Boolean
'Returns TRUE if all characters in cell are italic
If IsNull(Cell.Font.Italic) Then ALLITALIC = False
Else
ALLITALIC = cell.Font.Italic
End If
End Function