how do I insert an ' in front of many rows of numbers?

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" <[email protected]> wrote in message
news:[email protected]...
> 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" <[email protected]> wrote in message
news:[email protected]...
> I have a column of numbers 1,800 rows long that needs an ' in front of
every
> row. How do I do this?