Macro to Remove Extra Spaces in a row

[Michael151]

Hello all,

I have an Excel sheet from an Access querie that has a header in row containing extra spaces in each cell.

What I'm trying to do is match headers with another sheet and unfortunately because of the spaces, the headers don't match (even though they appear to).

Would there be a way to write a macro that will remove any extra spaces in row 1?

Help is most appreciated!

 

[Michael151]

Basically, just keep the value in the cells in row 1, but remove any extra spaces. Thanks!

 

[schielrn]

Do the headers change? If not, can you just put the headers in correctly one time and paste the data starting in row 2 and then delete row 2 which would be the bad set of headers?

 

[Michael151]

The headers don't change (I need them to match exactly), but I'm dealing with potentially over a hundred columns and a number of worksheets. manually cutting and pasting would take a very long time, which is why i'm trying to write a macro to do this.