Todd,

Modify this statement:
Range("A1").End(xlDown).Select
That'll look downward from A1 until it finds the first non-blank cell.
to read.......................
Select the cell in column "A" just above the first blank cell it encounters
below A1.

John

"John Wilson" wrote in message
...
Todd,

It skips blank cells
Actually it doesn't "skip" them.
It looks from the bottom of column "A" upwards until it
finds a non-blank cell.

To modify it, use
Range("A1").End(xlDown).Select
That'll look downward from A1 until it finds the first non-blank cell.

And also(2nd modification) how do I make it select the
first cell in the range that has no value skipping blank?
I'm not sure what you mean by that statement??

John

"Todd Huttenstine" wrote in message
...
Below is a code I saw in a post that selects the last cell
in columnA that has a value. It skips blank cells. How
do I make it select the first cell in the range that has
no value.

And also(2nd modification) how do I make it select the
first cell in the range that has no value skipping blank?


Range("A65536").End(xlUp).Select