Font sensitve lookup - is it possible?

[stevo]

Columns A:B contains videos and their retail price. I want to highligh
in italics the rows of the items which are out of stock.

I want to keep the price of the out of stock items in there fo
reference but highlight them in italics. This is so I can predict th
total sales without having to delete these rows.

How do I create a formula that will sum the prices in column B of al
the items except the ones in italics? Is this possible

 

[Don Guillett]

try this
Sub sumNONitalics()
For Each c In Range("c2:c6")
If c.Font.FontStyle <> "Italic" Then mt = mt + c
Next
MsgBox mt
End Sub