You have trailing space characters so they have to be removed. e.g.
[VBA]Sub Trim()
Dim cell As Range
For Each cell In Selection
cell.Value2 = Trim(cell.Value2)
cell.NumberFormat = "#,##0"
Next cell
End Sub[/VBA]
You have trailing space characters so they have to be removed. e.g.
[VBA]Sub Trim()
Dim cell As Range
For Each cell In Selection
cell.Value2 = Trim(cell.Value2)
cell.NumberFormat = "#,##0"
Next cell
End Sub[/VBA]
Posting Permissions
Reply With Quote