Hello,

I have the following code:

    Selection.TextToColumns Destination:=Range("A7"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="%", FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2)), _
        TrailingMinusNumbers:=True
I have bolded the relevant text. I am wondering if there is a way to specify ALL columns have the value 2 instead of just the ones that I have listed there. Otherwise I will have to go 

Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2), Array(14, 2), Array(15, 2)
and etc.

Thanks in advance!