VBA Text to Columns

VBA for Text to Columns function. Used when multiple columns are in 1 cell seperated by a delimiter. Common delimiter values are comma or pipe |. Text to columns separates columns based on the delimiter.

'Replace OtherChar:= "with the delimiter character"
 Selection.TextToColumns Destination:=ActiveCell.Offset(0, 1), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
 ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=True, _
[efb_likebox fanpage_url="https://www.facebook.com/vbamarket/" box_width="840" box_height=340"" responsive="1" show_faces="1" show_stream="1" hide_cover="1" small_header="0" hide_cta="0" locale="en_US"]