VBA remove spaces in cells

[jakobt]

Is it possible to select a range of cells and run a macro.

The macro should remove 2 spaces entered in the end of each selected cell.

 

[Vbagreenhorn1]

try this:

Sub RemoveSpaces()
For Each cl In Selection
    If Right(cl.Value, 2) = "  " Then cl.Value = Left(cl.Value, Len(cl.Value) - 2)
Next
End Sub

 

[jakobt]

Thanks but doesn't work. Do I need to declare a variable for cl?

 

[Vbagreenhorn1]

Is it just not working or does it run an error?

Dim cl as Range ?

 

[jakobt]

When running it the double space is not removed in the cells.

For instance cell A1:
Test__
(_ means space)

I select the cell A1 and run the macro, but it still has the same text ie. Test__

 

[Peter_SSs]

They may not be normal space characters. Select one of the problem cells and run this code

Sub CheckChars()
  With Selection
    MsgBox Asc(Left(Right(.Value, 2), 1)) & "|" & Asc(Right(.Value, 1))
  End With
End Sub

What does the message box say?