cycle through worksheets & call texttocolumns

[shinkley]

I have an Excel spreadsheet that is generated from a flat file. The file has different sections with group totals. I have set up a macro to import the data and place it onto different sheets.

however, the data is comma seperated. I am trying to loop though each worksheet, and use the texttocolumns method. however, i am unable to loop through the sheets.

i will post code dealing with looping through the sheets, since the macro works correctly up to this point

For Each ws In ThisWorkbook.Worksheets
  With ws
    If ActiveSheet.Name <> &quot;Sheet6&quot; Then
     Selection.TextToColumns Destination:=Range(&quot;A1&quot;), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
        TrailingMinusNumbers:=True
    End If
  End With
  
Next ws

i have placed msgboxes at the start of the loop, and i only get 1 iteration of the loop.

any suggestions?

 

[SkipVought]

Hi,

The ActiveSheet NEVER CHANGES!

And it really should not under most circumstances.

Just reference the ws sheet object as such...

  With ws
    If .Name <> &quot;Sheet6&quot; Then
     .Cells(1, 1).CurrentRegion.TextToColumns Destination:=Range(&quot;A1&quot;), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
        TrailingMinusNumbers:=True
    End If
  End With

Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884