strikethrough condition

[JoeC]

I am using VBA as below

Function SumStrikethrough(rng As Range) As Integer
Dim c As Range
For Each c In rng.Cells
SumStrikethrough = SumStrikethrough -
c.Font.Strikethrough
Next
End Function

to add all the amounts in a col which have a
strikethrough font. But the function appears to count the
number of cells instead of summing. Any help to ammend
would be appreciated.
Regards
JoeC

 

[Frank Kabel]

Hi
use
Function SumStrikethrough(rng As Range) As Integer
Dim c As Range
For Each c In rng.Cells
if c.Font.Strikethrough then
SumStrikethrough = SumStrikethrough + c.value
end if
Next
End Function