Typo

For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
With Cells(i, "A")
.Value = .Value
.NumberFormat = "General"
End With
Next i


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Bob Phillips" wrote in message
...

For i = 1 To Cells(Rows.Count,"A").End(xlUp).Row
With Activecell
.Value = .Value
End With
Next i

--

HTH

RP
(remove nothere from the email address if mailing direct)


"tvkodde26" wrote in message
oups.com...
I need help in creating a macro that will repeat an easy command. I
have Column A full of numbers, some are formatted General and others
are formatted Text. For Vlookup purposes I need them all formatted as
General.

How would I build a Macro that goes to cell A1 and complete (Enter +
F2) to convert it to general and then it moves to cell A2 and repeats
the same command, etc.....

Thanks for any help.

Travis