Targeting a specific Column with VBA.

[Livin404]

I'm sure I have hidden values within a cell. I have this code I used elsewhere in my project, but if I use this one too early as it gives me another problem down the line. How Can I just target Column C and only C? Do I just simply replace "A1" with "C1" and "X" with "C"?

Sub remove_hidden_Values()
With ActiveSheet
For Each Cell In Range("A1", Range("X" & Rows.Count).End(xlUp))
        Cell.Value = Trim(Replace(Cell.Value, Chr(160), Chr(32)))
    Next
    End With
End Sub

 

[MARK858]

Do I just simply replace "A1" with "C1" and "X" with "C"?

Yes

 

[Livin404]

Yes

Thank you, I was trying to add just one other Column I. I tried using the code below, but obviously I'm wrong. I'll continue to search.
Sub remove_hidden_Values_ColumnnsA_I()
With ActiveSheet
For Each Cell In Range("C1","I1" Range("C"),("I") & Rows.Count).End(xlUp))
Cell.Value = Trim(Replace(Cell.Value, Chr(160), Chr(32)))
Next
End With
End Sub

 

[Joe4]

For Each Cell In Range("C1","I1" Range("C"),("I") & Rows.Count).End(xlUp))

You cannot do that for a non-contiguous range (two columns that aren't touching).

You would either need to do two separate loops, or use "UNION" to create a non-contiguous range, something like this:

    Set rng = Union(Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row), Range("I1:I" & Cells(Rows.Count, "I").End(xlUp).Row))
    For Each cell In rng
        ...

 

[Livin404]

You cannot do that for a non-contiguous range (two columns that aren't touching).

You would either need to do two separate loops, or use "UNION" to create a non-contiguous range, something like this:

    Set rng = Union(Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row), Range("I1:I" & Cells(Rows.Count, "I").End(xlUp).Row))
    For Each cell In rng
        ...

Thank you for the advice. I decided to have separate codes since there was enough activity between certain function.

 

[Joe4]

You are welcome.