Remove unnecessary spaces from column c

[aviatecar]

Hello:

I am trying to remove spaces from the cells in column C of the sample file.

Anyone could help me write a code for that purpose?

Many many thanks,

Chris

2-PM TO INTERAL-remove unnecessary spaces from description.xlsx

[Ron Coderre]

Try this VBA code:

Sub CleanCol_C()
Dim rng As Range
Dim cCell As Range

With Worksheets("origional")
    Set rng = Range(.Range("C3"), .Range("C" & .Rows.Count).End(Direction:=xlUp))
    For Each cCell In rng
        If Len(cCell) Then
            cCell.Value = WorksheetFunction.Trim(cCell)
        End If
    Next cCell
End With
End Sub

Is that something you can work with?

[aviatecar]

Try this VBA code:

Sub CleanCol_C()
Dim rng As Range
Dim cCell As Range

With Worksheets("origional")

    Set rng = Range(.Range("C3"), .Range("C" & .Rows.Count).End(Direction:=xlUp))
    For Each cCell In rng
        If Len(cCell) Then
            cCell.Value = WorksheetFunction.Trim(cCell)
        End If
    Next cCell
End With
End Sub

Is that something you can work with?

Yep!

It works perfectly!

Thank you Ron!

Chris