What's not working with it?... works fine for me.

"JMay" wrote:

I want to create a macro that will convert a number to Text format
so that it can be read by another formula where the cell needs to be text.
Below is the result of turning on the recorder and doing as follows (with my
cell that needs fixing selected before):

Format, Cells, Text, OK
F2 pressed (To bring up in edit mode) + enter

But it doesn't seem to be working...
CAn someone assist?

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 5/22/2007 by Jim May
'

'
Selection.NumberFormat = "@"
' ActiveCell.FormulaR1C1 = "879"
With ActiveCell.Characters(Start:=1, Length:=3).Font
.Name = "Verdana"
.FontStyle = "Regular"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
' Range("L1149").Select
End Sub