I'd like to write text in a cell and have a line go through the middle
showing that it's been "crossed out".

How do I do that?

Thanks.

Select the cells to fix
Format|Cells|Font Tab
check strikethrough



" wrote:

I'd like to write text in a cell and have a line go through the middle
showing that it's been "crossed out".

How do I do that?

Thanks.

--

Dave Peterson

Range("A1").FormulaR1C1 = "text"
Range("A1").Font.Strikethrough = True

Hth,
merjet

To do that in A1,

Range("A1").Value = "Cross this out"
Range("A1").Font.Strikethrough = True


" wrote:

I'd like to write text in a cell and have a line go through the middle
showing that it's been "crossed out".

How do I do that?

Thanks.

Private Sub Worksheet_Change(ByVal Target As Range)
'Strikethrough ignore spaces
Dim v As Variant, i As Integer
If Not Intersect(Target, Columns("A")) Is Nothing Then
If Target(1, 1).HasFormula = False Then
v = Target(1, 1).Value
Application.EnableEvents = False
For i = 1 To Len(v)
If Not (Mid(v, i, 1)) = Chr(32) Then
Target(1, 1).Characters(Start:=i, _
Length:=1).Font.Strikethrough = True
End If
Next i
Application.EnableEvents = True
End If
End If
End Sub


Gord Dibben MS Excel MVP

On Thu, 1 Mar 2007 18:02:05 -0800, Vergel Adriano
wrote:

To do that in A1,

Range("A1").Value = "Cross this out"
Range("A1").Font.Strikethrough = True


" wrote:

I'd like to write text in a cell and have a line go through the middle
showing that it's been "crossed out".

How do I do that?

Thanks.