Text to column

Question

How can do multiple text to columns? If I need to do text to columns to a 100 columns at the same time?

Answer

I'd record a macro doing the first one and then something like:

Sub ManyTextToColumns()

   Dim lCt as Long
   For lCt = 1 to 100
       RecordedMacroNameGoesHere
       'Select next column
       Activecell.offset(,1).Entirecolumn.Select
   Next

End Sub