Al

Sub Delete_Shift_Up()
Range("A4:B6").Delete Shift:=xlUp
End Sub

More generic....Selection.Delete Shift:=xlUp......you pre-select the range

Gord Dibben XL2002

On Mon, 3 Nov 2003 21:03:58 -0800, "Al" wrote:


You know when you Delete cells in Excel, it asks you if
you want to move the cells up or left to fill in the gap.

What is the code to Delete a Range (A4:B6) and then
automatically have the cells move up to fill the gap?


Thx,
Al