Code for Text to columns using spaces

Sub TextToCol()
    Dim lr As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1:A" & lr).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
                                     TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
                                     Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
                                                                                              :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.