How to convert entirecolumn into a collection

For Each Cell In ActiveCell.EntireColumn
          ' Do something on each cell in the column
          If not Cell.Value = nothing Then
         
          End If
 Next Cell

Here are some ways to loop through the cells in a column
-------------------------------------------------------------------
For Each cell In Columns("A:A")  

     msgbox cell.Text

 Next


-------------------------------------------------------------------

With oSheet
        For lRow = 1 To .UsedRange.Rows.Count
            sKey = Trim$(.Cells(lRow, 1).Value)
            msgbox sKey
        Next lRow
End With
-------------------------------------------------------------------

Tommy

Tommy,

The quickest way of working on values is to
1) Create a working column of VBA formulae, or
2) USe a variant array  (see my article at https://www.experts-exchange.com/A_2684.html)

The varinat array code below runs on column A (from first to last used call) in the activesheet. As a sample it converts
xy
into xy-xy
inside the array then dumps the range back when done

If you want to work on cell formatting rather than value manipulation then a different approach is needed

Cheers

Dave

Sub REDo()
    Dim rng1 As Range
    Dim lngRow As Long
    Dim x
    Set rng1 = Range([a1], Cells(Rows.Count, "A").End(xlUp))
    x = rng1
    For lngRow = 1 To UBound(x)
        x(lngRow, 1) = x(lngRow, 1) & "-" & x(lngRow, 1)
    Next
    rng1 = x
End Sub

Select allOpen in new window

Dim Cell As Object
For Each Cell In ActiveCell.EntireColumn
          ' Do something on each cell in the column
          If not Cell.Value = nothing Then
         
          End If
 Next Cell

I am trying to do above but the cell is not reference to each cell in the column but rather then the entire column.  It loops through once only.  What can I do to make it examine each cell.

Thanks.