Converting number stored as number to number stored as text

[poiu]

Hello,

I have the following code which converts a column of numbers stored as text into numbers stored as numbers.

Please could you tell me how to adjust the code so that it converts numbers stored as numbers into numbers stored as text?

Sub test()
    Columns("L:L").Select
    Selection.TextToColumns Destination:=Range("L1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
End Sub

Thanks,

Poiu

 

[AlphaFrog]

Give this a try...

Sub test()
    Columns("L:L").NumberFormat = "@"
End Sub

Or this...

Sub test()
    Columns("L:L").TextToColumns Destination:=Range("L1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, [COLOR="Red"]2[/COLOR]), TrailingMinusNumbers:=True
End Sub

 

[poiu]

Thank you, it works perfectly!