Text-to-column compile err

[mkseto]

Very new to macro, couldn't understand why I got compile error (syntax error) with the following:

Sub TextColumn()
Columns("A:A").Select
FieldInfo:=Array(Array(0, 1), Array(7, 1), Array(41, 1), Array(52, 1), Array(58, 1), _
Array(72, 1), Array(80, 1), Array(88, 1), Array(96, 1), Array(105, 1), Array(116, 1)), _
TrailingMinusNumbers :=True
End Sub

I originally had this:

Sub TextColumn()
Columns("A:A").Select
FieldInfo:=Array(Array(0, 1), Array(7, 1), Array(41, 1), Array(52, 1), Array(58, 1), Array(72, 1), Array(80, 1), Array(88, 1), Array(96, 1), Array(105, 1), Array(116, 1)), TrailingMinusNumbers :=True
End Sub

Got the same error, however.

This is probably some stupid mistake and obvious to most of you, so I'm sorry to waste your time, but would appreciate your help.

 

[Joe4]

You are missing quite a few parts of that function (including the actual Text to Columns part)!
If you turn on the Macro Recorder, and record yourself doing it manually, you will see what it should look like, for example:

    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(8, 1)), TrailingMinusNumbers:= _
        True

It looks like you deleted the whole line in red above, you cannot do that!

You can shorten it by removing the "Select/Selection" like this:

    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(8, 1)), TrailingMinusNumbers:= _
        True

but you still need all the other pieces (TextToColumns, Destination. DataType, etc.

Your code should look something like this:

    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(7, 1), Array(41, 1), Array(52, 1), Array(58, 1), Array(72, 1), _
        Array(80, 1), Array(88, 1), Array(96, 1), Array(105, 1), Array(116, 1)), TrailingMinusNumbers :=True

 

[mkseto]

You are missing quite a few parts of that function (including the actual Text to Columns part)!
If you turn on the Macro Recorder, and record yourself doing it manually, you will see what it should look like, for example:

    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(8, 1)), TrailingMinusNumbers:= _
        True

It looks like you deleted the whole line in red above, you cannot do that!

You can shorten it by removing the "Select/Selection" like this:

    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(8, 1)), TrailingMinusNumbers:= _
        True

but you still need all the other pieces (TextToColumns, Destination. DataType, etc.

Your code should look something like this:

    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(7, 1), Array(41, 1), Array(52, 1), Array(58, 1), Array(72, 1), _
        Array(80, 1), Array(88, 1), Array(96, 1), Array(105, 1), Array(116, 1)), TrailingMinusNumbers :=True

Thank you !!!!!
This is so obvious now, silly me, thanks again.

 

[Joe4]

You are welcome.
Glad I was able to help!