Converting Values

  • Thread starter Thread starter Eric
  • Start date Start date
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
 
Hi Eric,
You can try this code and see if it works for you.
Assuming your first number is in cell A1, this will loop
until the first blank cell in Column A. If you want to
leave the strikethrough on, delete the line
ActiveCell.Font.Strikethrough = False. HTH.

Sub try()
Worksheets("Sheet1").Activate
Range("A1").Select
Do Until ActiveCell = ""
If ActiveCell.Font.Strikethrough = True Then
ActiveCell = "0.00"
ActiveCell.Font.Strikethrough = False
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
 
Back
Top