Exclude 2 sheets and Run the Macro

[Sri.n]

Hi All,

I have a code which will do a text to column on the sheets. I will run this on every tab. the tab name varies but the data will be similar and starts only from A3 and will not have any blanks. Can any one suggest or add a line to do the same job on all sheets in the file except from 2 tabs which will be "Macro" and "File".

Below is the Code for reference.

Sub TexttoCol()
'
' TexttoCol Macro
'

'
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("A3"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(10, 1), Array(20, 1), Array(32, 1), Array(40, 1), _
Array(53, 1), Array(61, 1), Array(72, 1), Array(85, 1), Array(95, 1), Array(105, 1), Array( _
115, 1), Array(130, 1), Array(145, 1), Array(166, 1), Array(207, 1)), _
TrailingMinusNumbers:=True
End Sub

[Norie]

Perhaps.

Please Login or Register  to view this content.

PS Can you add code tags when posting code?

[Sri.n]

Thanks Norie,

But seems like there is some thing error at end. I have attached a sample for your reference.

[Sri.n]

Hi Norie, and I think the code is not passing after running from one tab to another. can do add a line which will run on all the tabs but not on Macro and File tab.

[Norie]

The code I posted will run on all sheets apart from the two named 'File' and 'Macro', and that's what it does in the sample workbook you attached.

[Sri.n]

Sorry to bother you.. I am trying on the attached file but it stops after running in the first tab. Not sure is it only for me?

[Norie]

Just a typo.

Please Login or Register  to view this content.

[Sri.n]

Thank you so much.. runs Perfectly

[Sri.n]

Hi Norie- Small change the macro wont if the sheet does not have any data.. Can we just add one more line which will jump if it finds any empty sheet

[Sri.n]

Hi Norie- is it possible to jump the macro if it finds a blank or no data sheet

[Sri.n]

Can any one add a line which would jump to next sheet if a macro finds a blank sheet.

Thank you