Trim within VBA

[Stubby]

Hi All

I am struggling to use the Trim feature in VBA. I have a block of data that often has an extra space or two either at the beginning or end of the text. I have used the following code to try and resolve this but i cant get the result of the Trim to be placed back into the spreadsheet. Can anyone see where I am going wrong!!

Sub testing()

Range("a5").CurrentRegion.Select

For Each x In Selection
trimstring = Trim(x)

x = trimstring
Next
End Sub

Many thanks

 

[VoG]

Try

Sub testing()
Dim x As Range
For Each x In Range("a5").CurrentRegion
    x.Value = Trim(x.Value)
Next x
End Sub

 

[Stubby]

Thanks That works a dream!