Got me exactly where I needed to be. Thanks.
To make sure I did not count blank italic-formatted cells, I did have to add
a nested if with the resultant formula:

Function CountItalic(rng As Range)
Count = 0
For Each rng In rng
If rng.Font.Italic = True Then
If rng.Value < "" Then
Count = Count + 1
End If
End If
Next
CountItalic = Count
End Function

The only way you can do this is by creating a UDF:
1) Alt+F11 to get to the VBA editor
2) Insert a module (right click on your sheet name and choose
<Insert<Module)
3) Paste this code:

Function CountItalic(rng As Range)
Count = 0
For Each rng In rng
If rng.Font.Italic = True Then
Count = Count + 1
End If
Next
CountItalic = Count
End Function

Then you will be able to use the function CountItalic() in your worksheet.

Does that help?
--
Regards,
Dave


"phausman" wrote:

I have a large spreadsheet in which I am trying to calculate the number cells
in each row with specific contents. Using the "COUNTIF()" function, I am able
to do almost all of what I want. However, I need to subtract out any cells
that have the contents formatted in Italic text. I cannot find any way to do
so. Any suggestions would be welcome.