Public Function SumNoStrike(rngSumRange As Range) As Single
Dim rngCell As Range
If IsNumeric(rngCell.Value) Then
If rngCell.Font.Strikethrough = False Then
SumNoStrike = SumNoStrike + rngCell.Value
End If
End If
Next rngCell
End Function

=SumNoStrike(range)


Gord Dibben MS Excel MVP

On Wed, 2 Jul 2008 16:18:00 -0700, AndyKC
wrote:

I have a column of figures and a separate cell that displays their sum. I'd
like to be able to exclude from the summing process, the figures in that
column that are struck-through. Can anyone suggest a way of doing this?

Thanks

Andy