Text to Columns (general) reverting at end of macro

[ShannaD]

Can someone help me figure out why my data that i am converting into
"general" form using text to columns is reverting back to what it started as
when the macro is done?

My code looks like this:

Range("B7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("B7"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False,
FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Range("B3").Select

After it gets through this and I see it make the correct change, it changes
the data back to text.

Thanks for any help!

 

[dan dungan]

I'm wondering what excel and operating system versions you're using.

Where have you placed the code?

What changes your data back to text? Excel or your macro?

 

[ShannaD]

I am using Windows XP Professional, Office 2003. The code is in a module for
the workbook. As for what is changing the data, I don't know for sure.
Although when I do it manually, Excel does not turn the data back so I am
assuming it is the macro that is reverting the data.