Converting Values

E

Eric

I have cell C10 with a currency value. It also
has "strikethrough" formatting. I want to convert the
value in C10 to "$0.00" where the cell has "strikethrough"
formatting.

Any suggestions are appreciated.

Thanks
 
D

Debra Dalgleish

The following code will change all applicable cells in the selected range:

'==============================
Sub ChangeStrikeToZero()
Dim c As Range
For Each c In Selection
If c.Font.Strikethrough = True Then
c.Value = 0
End If
Next c
End Sub
'==============================
 
Top