Ignore my code, use Don's. Resize is certainly the way to go.


"Rob van Gelder" wrote in message
...
Sub testit()
Dim rng As Range

With ActiveCell.EntireRow
Set rng = Range(.Cells, .Offset(1, 0))
End With
rng.Delete xlUp
End Sub

Rob

"RKettle" wrote in message
...
I need help to design an excel 97 macro that will delete
the currently selected row and a hidden one immediately
under it in their entirety.

Any help is appreciated