How to remove white spaces from a phrase?

I have a list of phrases in a single column, something like this:

lower back pain
back pain
Earth
back exercises
upper back pain
lower back exercises


As you can see, some phrases can be a single word, and some can be several words.

I need a solution (preferably a macro) that will delete all white spaces between the words, so that each phrase become a string of a few characters in a row, while leaving the single words phrases as is.
After running the macro the list will look like this:

lowerbackpain
backpain
Earth
backexercises
upperbackpain
lowerbackexercises


Any ideas?

Thanks a lot!
Sami

Originally Posted by AlKey

I know you are looking for VBA solution but here is how you can do it by formula


=SUBSTITUTE(A1," ","")

Thanks, didn't think about it!

Originally Posted by TMShucks

Why do you need a macro? Just select the cells and do a global replace of space for nothing. That is, press this space bar once in the Find box and leave the Replace with box empty. Then do Replace All.

If you want, you could record a macro while you do it?

Regards, TMS