identifying the end of a data column

[MJKelly]

If I want to loop through a column of data, I have usually stated the
range (A1:A10). How do I do this without stating the range, but
instead have the loop run in a given column until the first empty
cell?

kind regadrs,
Matt

 

[obsolent]

How about

For each C in Activesheet.usedRange.Columns("A").cells

if C.Value="" Then exit For ' This might be redundant

.... doing whatever to C.Value
Next C

 

[Dan R.]

I think you meant find the last row of data:

lRow = Range("A65536").End(xlUp).Row

 

[Mike H]

One common way is this

Sub stance()
Dim myrnge As Range
lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set myrange = Range("A1:A" & lastrow)
For Each c In myrange
'do somthing
Next
End Sub

Or another to loop down Column A

Sub stance1()
x = 1
Do
myvalue = Range("A" & x).Value
'do something
x = x + 1
Loop Until myvalue = ""
End Sub

Mike