Text to Columns Question

[Steve001]

Hello Again ...

So using Record Macro Function returns this bit of code.

    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True

I wish to build this into a sheet, where the number of columns is unknown how do i handle this ?
The sheet i am looking at at the moment has columns upto AW

I am not sure where to start with this one,

ps please put comments in the code so i can understand what is happening

I am using office 363 & office 2021

Regards

 

[DanteAmor]

Just eliminate the FieldInfo parameter, so that it considers all the columns:

Sub Macro_Texttocolumns()
  Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
      Semicolon:=False, Comma:=True, Space:=False, Other:=False, TrailingMinusNumbers:=True
End Sub

 

[Steve001]

Thank you, that is just what i wanted

Steve