I have a column of numbers 1,800 rows long that needs an ' in front of every
row. How do I do this?

Sub MakeText()
Dim cell as Range
for each cell in Range("F1:F1800")
cell.Formula = "'" & cell.Text
Next
End Sub

--
Regards,
Tom Ogilvy

"jszuch" wrote in message
...
I have a column of numbers 1,800 rows long that needs an ' in front of
every
row. How do I do this?

See response in .misc

--

HTH

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


"jszuch" wrote in message
...
I have a column of numbers 1,800 rows long that needs an ' in front of
every
row. How do I do this?