hi excel master
I have a VBA code like this
Application.DisplayAlerts = False
bs = 17
For i = 19 To 100 Step 6
Set obj = Sheets("AA").Cells(32, i)
obj.TextToColumns _
Destination:=Sheets("BB").Cells(bs, 6), DataType:=xlDelimited, OtherChar:="x"
bs = bs + 1
Next
the code above does...