Hello,

i'm looking for help writing a loop that will perform the same action on 11 worksheets but stop if it gets to a sheet with no data in cell A1. The data in A1 will be text. The code I wrote below below does what I want it to, but I have to run it on each individual sheet. Any help would be greatly appreciated.

~Donny

 
Sub parse()
    Columns("A:A").Select
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(2, 1), Array(15, 1), Array(17, 1), Array(24, 1), _
        Array(25, 1), Array(32, 1), Array(33, 1), Array(40, 1), Array(42, 1), Array(50, 1), Array( _
        52, 1), Array(59, 1), Array(60, 1), Array(68, 1), Array(69, 1), Array(77, 1), Array(79, 1)) _
        , TrailingMinusNumbers:=True
    Range("B12").Select
End Sub