I want to find cell in column A which is blank after the used range i
the sheet

like if the used range in sheet 1 ends in A20000, i want to find cel
A20001

THANKS A LO

--
Message posted from http://www.ExcelForum.com

Dim rng as Range
set rng = ActiveSheet.UsedRange
set rng = intersect(rng.EntirRow, Activesheet.Columns(1)).Cells
set rng = rng(rng.count+1)

or if you mean the next blank cell looking from the bottom

set rng = cells(rows.count,1).End(xlup)(2)

--
Regards,
Tom Ogilvy




"vikram " wrote in message
...
I want to find cell in column A which is blank after the used range in
the sheet

like if the used range in sheet 1 ends in A20000, i want to find cell
A20001

THANKS A LOT


---
Message posted from http://www.ExcelForum.com/

Vikram,

Dim LastRow as Integer

LastRow=Range("A65536").End(xlUp).Row

Cheers, Pete.
-----Original Message-----
I want to find cell in column A which is blank after the
used range in
the sheet

like if the used range in sheet 1 ends in A20000, i want
to find cell
A20001

THANKS A LOT


---
Message posted from http://www.ExcelForum.com/

.