Need a macro to delete selected rows

[RKettle]

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

 

[Don Guillett]

try this
ActiveCell.Resize(2, 1).EntireRow.Delete

 

[Rob van Gelder]

Sub testit()
Dim rng As Range

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

Rob

 

[Rob van Gelder]

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

 

[Guest]

Thanks all, I'll give it a try on Monday when I get back to the office.

Rob

 

[rkettle]

The resize code works great.

Thanks all

Rob