VBA Run Time Error on text to column

[scuddersm]

Hello All,

Does anyone have an idea on why the following is causing a run time error 1004? Method Range global.

objXLApp.Columns("A:A").Select
    objXLApp.Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=True, Other:=False, OtherChar:= _
        ".", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

It will work on the first run through but on subsequent passess it will cause the run time error.
Thanks for any help on this one.

 

[scuddersm]

Thanks so much worked like a charm!! Spent the last 2 days searching web and forums on how to fix it, to no avail. Much gratitude and thanks.

Scott