Creating a range with variable length

[Boomdiddygop]

Hi, I'm trying to write a code that finds the next empty cell in Column A and then sets that as a range.
Once that is complete, I want to create a For Each loop for that range.

So far what I have is:

Range("A1").Select
ActiveCell.End(xlDown).Select
For Each c In [A2:ActiveCell.Address]
Does actions
Next


I've tried a few ways of labeling the range, but I can't seem to make it run through. I keep getting a type mismatch error.

Any advice would be much appreciated.

 

[Andrew Poulsom]

Welcome to MrExcel.

Skip the Selecting and try:

For Each c In Range("A2:A" & Range("A1").End(xlDown).Row)
'    Does actions
Next c

 

[Norie]

Try this.

Dim rng As Range
Dim cl As Range

    Set rng = Range("A1", Range("A" & Rows.Count).End(xlUp))

    For Each cl In rng.Cells
        ' Does actions
    Next cl

 

[Boomdiddygop]

That did it. Thank you very much.