Text To Columns

[TheComputerDude]

I need to dynamically convert parts of a spreadsheet to columns. I used a macro to get the following syntax:

Selection.TextToColumns Destination:=Range("A7"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(11, 1), Array(24, 1), Array(37, 1), Array(50, 1), _
Array(63, 1), Array(76, 1), Array(89, 1), Array(102, 1), Array(115, 1)), _
TrailingMinusNumbers:=True

My question is how can I dynamically change the field info section? Any help would be greatly appreciated!

 

[SkipVought]

Hi,

Change it from WHAT to WHAT?

Skip,
[sub]
[red][/red]
[/sub]

 

[TheComputerDude]

The array dimension and/or size may change due to the data being displayed. I would like to be able to dynamically change the number and/or size of the fields.

 

[SkipVought]

You build a 2 dimensional array and then assign it to FieldInfo.

Skip,
[sub]
[red][/red]
[/sub]