When I try to run the following one line macro, I got the error msg
that "Application-defined or object-defined error". It must be
something simple but I am completely clueless as to what the mistake
is.

Columns(1).TextToColumns Destinations:=Range("B1"),
ConsecutiveDelimiter:=True, Space:=True