Kevin,

Thanks, this worked great!

James

"Kevin Stecyk" wrote in message
...
JStone0218,

I have plagiarized this from J.E. McGimpsey


For Each cell In Range("A1:A" & _
Range("A" & Rows.Count).End(xlUp).Row)

Do whatever it is you want to do on your column A of data.

Next cell

The For Each statement says in effect,

Start in A1,
Count the number of rows
now xlUP from the bottom (number of rows)

So you have defined the bottom row.

Hope that helps.

Regards,
Kevin

"JStone0218" wrote in message
...
I need help modifying the following code:

Sub Test()

With ActiveSheet
Range("a" & ActiveCell.Row).Offset(1, 0).Select
End With

End Sub

I have data in column "a" and I need the code above to execute until it
reaches
the last row. The range is variable based on the data I import from
another
file. Is this doable?

Thanks,

James