Try this out:
Code:Sub Macro1() Dim col As Long With ActiveSheet For col = .Range("A1").End(xlToRight).Column To 2 Step -1 .Columns(col).TextToColumns DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=True, Other:=True, OtherChar:= _ "/", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True .Columns(col).Insert Next col .Columns(col).Delete End With End Sub
Bookmarks