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, _