.TextToColumns If more then one space Still move only one column

[tgreenwald3]

So I am using .TextToColumns but some of my items are separated by more then one space so it separates the content more then needed and makes the display look sloppy. Is there anyway to make it not seperate lets say 5 times if there is 5 spaces between two items and make it just separate once? this is the code i am using now.


Dim objRange1 As Range
Dim objRange2 As Range

'Set up the ranges
Set objRange1 = Range("A8:A10")
Set objRange2 = Range("A37:A75")

'Do the first parse
objRange1.TextToColumns _
Destination:=Range("A8"), _
DataType:=xlDelimited, _
Space:=True, _
OtherChar:="x"



'Do the second parse
objRange2.TextToColumns _
Destination:=Range("A37"), _
DataType:=xlDelimited, _
Space:=True, _
OtherChar:="x"