Sub FixAllColumns()
Application.ScreenUpdating = False
Dim MyLastColumnAddress As String
Dim i As Integer
MyLastColumnAddress = Range("IV1").End(xlToLeft).Address
Range("A1").Select
Do
On Error Resume Next
i = i + 1
Cells(1, i).Select
Range(Cells(1, i), Cells(65536, i)).Select
Selection.TextToColumns Destination:=Cells(1, i), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2)
If ActiveCell.Address = MyLastColumnAddress Then Exit Do
Loop
On Error GoTo 0
Application.ScreenUpdating = True
End Sub