Stike out text in a cell
Spoke too soon! Do I need to modify the code for it to work in Excel 2003,
Visual Basic 6.3? I am getting a "compile error: Syntax error". It is
working fine in Excel 2007 though. I need to do this in my work computer,
which is the one with Excel 2003.
Thanks,
Frank
"Frank Beltre" wrote in message
...
Freaking awesome! It works really good! I got it to work on Excel 2007,
having a compile error in 2003, but nothing I can't figure out.
Thank you guys for the support.
Frank
"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
Thanks for chipping in.
Does the job. I like the way you eliminated the spaces.
My attempts.....not yet posted but why bother now........got rid of the
strikethrough text but left spaces.
Gord
On Thu, 23 Aug 2007 16:00:05 -0700, Gary''s Student
wrote:
Enter this macro.
Select the cells you want to clean-up.
Run the macro.
Sub no_strike()
'
' gsnuxx
'
For Each r In Selection
v = r.Value
v_out = ""
For i = 1 To Len(v)
piece = Mid(v, i, 1)
If r.Characters(Start:=i, Length:=1).Font.Strikethrough = False
Then
v_out = v_out & piece
End If
Next
r.Value = v_out
Next
End Sub
|