Trying to find last empty caee Error 438 object does not support this property

[vba317]

I am trying to Select the last empty cell in column D I have tried a couple of different methods with no luck. My current attempt is what follows. Any help would be appreciated.

Tom

Range("D" & Rows.Count).End(xlUp).Row + 1

[\code]

 

[vba317]

I found out a formula that works.
ActiveSheet.Range("D8").End(xlDown).Offset(1, 0).Select

Tom

 

[xlbo]

I would always go up for first empty cell in case of blanks on the column:

dim lrow as long
with sheets("Sheetname")
lRow = .cells(.rows.count,4).end(xlup).row
end with


Rgds, Geoff

We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.

Please read FAQ222-2244 before you ask a question

 

[SkipVought]

Please ask VBA questions in forum707.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[vba317]

Skip,

Sorry, I will do that in the future.

Tom