View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Eva Shanley[_2_] Eva Shanley[_2_] is offline
external usenet poster
 
Posts: 29
Default Converting Values

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


-----Original Message-----
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
.