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?