Remove extra space from the end of the cell contain text

Dear Members,

I am regular reader of this forum. I have one problem. In my spreadsheet (i have attached) in many cells there are extra spaces are end of the text. How can I remove these extra spaces end of the text in the cell. I have large amount of data.

I hope you will help me.

Thanks & Regards,
Nandkumar S

Hi there,

You could try some VBA here. This should work:

Please Login or Register  to view this content.

Just change the range (currently set as A1:I50) to suit you data.

HTH,

FermentedR

Dear Fermented Reptile

I works perfect.

I just wanted to thank you for your timely and kind responses to this matter.

Thanks again.............

Dear Fermented Reptile

I works perfect.

I just wanted to thank you for your timely and kind responses to this matter.

Thanks again.............

Dear Fermented Reptile,

Sorry to say I have one more problem when I have entered below code.


Sub Trimmer()
With Range("A1:I5000")
.Value = Application.Trim(.Value)
End With
End Sub


I am getting below error

Run-time error '13':
Type mismatch


pls help me.

Regards,
Nandkumar S.