Hi,

If someone knows: I write the following (see below). and from the cells
selected I would like to extend to the entire rows to delete them.

Range("B" & ActiveCell.Row + 1 - decale).Select
ActiveWindow.SmallScroll Down:=0
Selection.SpecialCells(xlCellTypeSameValidation).S elect

Thanks in advance for any idea on this,

Michael


--
mikla
------------------------------------------------------------------------
mikla's Profile: http://www.excelforum.com/member.php...o&userid=37179
View this thread: http://www.excelforum.com/showthread...hreadid=569082