text to columns not working for me...frustrated

I have an entire program written that seems to work every once in a while. The one thing that I CANNOT seem to figure out is the range for my text to columns. It is ALWAYS in cell A1, and the destination is ALWAYS A1. Sometimes it will work, and others it won't. I am puzzled. I am guessing something having to do with declaring object, or activeworkbook.worksheets(1).range("A1") needs to happen but I have tried a ton of things and still get a debug error.

It might be helpful to say I am running this code through outlook, and calling excel. I am unsure if I needed to use "with activeworkbook" and run all my code with that declaration, but I had it then deleted it since I have been getting this error. This is the code for the text to columns. I have a rule set to run this script that saves the attachment, then opens it then needs delimit it. It has run through a few times and when it does it is exactly how I want it. I am guessing this is a simple fix. Thanks in advance!

Dim rng As range
Set rng = ws.range("A1")

       rng.TextToColumns Destination:=rng, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, 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), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
        (20, 1)), TrailingMinusNumbers:=True

First, sorry for not including the code tags, totally slipped my mind!

Here is the full text to columns code. The name of the worksheet I want is named "1", so would activesheet.sheets("1") be the ticket? I am so lost as it works sometimes, but then others it doesn't...realllly frustrating!!!!

Dim ws As Worksheet
Set ws = Sheets(1)

Dim rng As range
Set rng = ws.range("A1")




        rng.TextToColumns Destination:=rng, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, 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), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
        (20, 1)), TrailingMinusNumbers:=True

Sorry that I don't have a magic bullet, but just a suggestion. See if the functioning/nonfunctioning relates to whether it's the first time the code runs after you open the workbook vs. later. Or if it correlates to right after opening Excel, vs. a second invocation since opening Excel. What I'm going after here is that text-to-column infuriatingly "remembers" how it handled imported data, resulting in inconsistent behavior when you run the same import back-to-back. Maybe this will give you SOME insight into the inconsistency; sorry that's all I can offer.

For all, besides that being a great example of MS "knowing what is good for you better than you do, so that's how it shall work" and "it's a feature" it prevents you from re-tweaking the delimiters; it just text-to-columns the way it previously did, whether you like it or not. If anyone knows how to prevent that forced "courtesy" of it automatically invoking text-to-column when you repeat it, I've been looking for that for ages. If someone can identify the "rules" for when it does it that would also be useful (e.g., must you restart Excel, etc.).