VBA to convert a range from numbers to numbers stored as text (Text to Columns)

Hello,

I manually convert all numbers to "numbers stored as text" by using Text to columns. I wondered if we use VBA to make it more automatic.

I would need a range starting from cell A17 to last data in the same column to convert to numbers stored as text.

Please help.

Thank you for your code. However, the result that I wanted was in reversed. I wanted the numbers to convert into text instead.

Numbers to text.

Please Login or Register  to view this content.

I tried and it did not change the numbers into text. Must be something not working

Record a macro and see what you get.
You can also do on a single cell.
Range("A1") = "'" & Range("A1")