trimming all selected cells

[damrus]

Hello!

How to trim each cell in chosen selection?
I mean... how to use this code:

Cells(10, 1) = Trim(Cells(10, 1))

in each cell of selection?

Regards

 

[SkipVought]

Hi,

I wouldn't recommend using the Selection method. However...

dim r as range
for each r in Selection
  with r
     .value = trim(.value)
  end with
next

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[damrus]

Thanks
It works well. Anyway what do you recommend?

 

[macropod]

Hi damrus,

For performance reasons, it's usually better to specify the range to be acted upon, rather than selecting the cells and then acting on them. In this case, however, 'selection' is only being used to identify the range. Without it, you'd need some other way (eg an inputbox, which is slower and more error-prone).

Cheers

[MS MVP - Word]