Making the next cell active

[Norie]

You could try code like this.

Dim rng As Range
Dim c As Range
Set rng = Worksheets("Sheet1").Range("A1:A450")
For Each c In rng.Cells
c.Activate
Next c

By the way why do you want to do this, you don't actually need to select/activate cells/ranges to work with them.