How to format with a strikethrough like something's been crossed out

[gimme_this_gimme_that]

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]

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

 

[merjet]

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

Hth,
merjet

 

[Guest]

To do that in A1,

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

 

[Gord Dibben]

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