selecting row from active cell selected

[mikla]

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).Select

Thanks in advance for any idea on this,

Michael

[Mark]

Try this:
Selection.EntireColumn.Select