Thanks! It did it!
--
Arvi Laanemets
(When sending e-mail, use address arvil<Attarkon.ee)
"Melanie Breden" wrote in message
...
Hi Arvi,
Arvi Laanemets schrieb:
In my procedure I need to determine last used row on worksheet, and I
tried
with:
LastRow = Sheets("SheetName").Cells.SpecialCells(xlCellTypeL astCell).Row
At start it looked fine - until I found, that when I p.e. delete some
rows
from used range, the SpecialCells(xlCellTypeLastCell) isn't actualized
until
I haven't saved my workbook.
try this:
LastRow = Sheets("SheetName").Cells.Find("*",
searchdirection:=xlPrevious).Row
--
Regards
Melanie Breden
- Microsoft MVP für Excel -
http://excel.codebooks.de (Das Excel-VBA Codebook)