title: How to format as Text using Text-To-Columns
body: <p>This code works using text to columns to separate column A into as many columns as I need, but I cannot figure out a way to make it do this with all columns outputted into text format.</p>
  
  <pre><code>Sub TxT_to_Columns()
      ActiveWorkbook.ActiveSheet.Range("A:A").TextToColumns _
      Destination:=Range("A1"), _
      DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, _
      Semicolon:=False, _
      Comma:=False, _
      Space:=False, _
      Other:=True, _
      OtherChar:="|"
  End Sub
  </code></pre>
  
  <p>How can I do the same thing but output all columns to text format?</p>
  
  <p>Thank you,</p>